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Attn. Assembly Programmers : 


1. Room is left in the command and function tables for additional 

functions and commands. . . 

2. There are over 110 Q contiguous unused core locations availaoie 

for new coding. 

3. The general disk-read routine in FOCARL, SWAP , may be used to 
read over 500_ core locations of code to perform special 
functions suon as implement dectape, graphics, or four-word 
floating point routines* 

4. There are several unused page zero locations. . 

5. The most important aspect of FOCARL is that is a program totally 
different from FOCAL; It is a recompilation, not an overlay. 

Hardware EAE 

Hardware GAB is standard in FOCARL. That is, it is edited into 
the source. But, non-EAE coding has been left in also and may be 
used by making the patch described in the comments in the source at 
n MP4". 


Colpac Programmers : 

The PLOT, OPTION SCOPE, ERASE SCOPE, and TYPE/ASK & commands are 


ignored, so your programs 
they are not too large or 


will run in FOCARL provided that 
generate too many in-core variables. 


Compiling FOCARL : 

The source for FOCARL is in two parts for ease in • 

The running version of FOCARL is an 18 disk segment file (TSS/8 
sire disk segments). The first 16 segments are created by 
compiling the source, as it is, using PAL8. That is, no ad ^ ions 
are necessary. The 17th and 18th segments are c ^ ea £ ed *$L c m_ 
piling the source with the label, HIGH, defined to be 0000. 

An example of responses to PAL8 follows* 


r pALQ 

♦FBIN1.IN^-FOC14A.PA,FOC14B.PA 


ERRORS DETECTED: 0 
LINKS GENERATED: 0 


•R PAL8 

*FBIN2. BN 4-TTY:, DSK SF0C14A. PA, DSKSF0C14B. PA 
HIGH=0000 (RETURN) 

CTRL/Z (WHEN PAL8 STOPS) 

CTRL/Z (LETS PAL8 CONTINUE WITH PASS 2) 

ERRORS DETECTED: 0 

LINKS GENERATED: 0 










When PAL8 has finished, FBIN1.BN will be the binary file*eon- 
taining coding which oocupies segments 1 through 16 of the TSS/8 
disk file. FBIN2.BN will contain coding which oocupies segmerte 
17 and 18 of the disk file, FOCARL. Because TSS/8 LOADER loads 
Into core, and because POCARL requires all 4K of core, several 
core locations beginning about location 1740 a will not have the 
proper contents after loading FBIN1. So, the correct contents, 
as read from the listing, will have to be hand-patdied. FBIN2 
will have to be loaded separately from the main file of 16 
segments by using LOADER to load FBIN2 into oore and then by 
appending it to the main file using Monitor commands; 

.SAVE FOCARL 10000 0 


The above-described procedure for loading FBIN1 and FBIN2 and 
oreating the SAVE-foraat file, POCARL, ie awkward, particularly 
because LOADER loads into oore and not, say, into a disk iiie. 
This procedure is for use under the TSS/8 timesharing systeme 
There must be a better way..e 
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1 . INTRODUCTION 

THI» MANUAL DESCRIBE* THE PROGRAMMING LAN 6 UA 8 E® COLPAC CCARLETON 
ON-LINE LANGUAGE FOR PLOTTING ANO ARITHMETIC CALCULATION) AND FOCARL 

(FOR formulating on-line emulations IN SS JO**? 

COLLEGE), BOTH ARE ADAPTATION* OF FOCAL WHICH X* BASEO ON JOBS, 

roLPAC la AN SK VERSION OF FOCAL WHICH RUNMTN AN */L COMPUTER. XT 
FEATURE* GRAPHIC* and ACCOMMODATE* LARGER PROGRAM* ANO MORE VARIABLES 

THAN FOCAL AND POCARL# 

FOCARL RUM. under THE TI./.TIME.MARINO «r.T.H mumm S?U. M Sf eM 
colrac! 1 FOCARL feature* ranoom access oisk data storage. 

tn ,u LAlaa ..ARl« auPERCEDE FOCAL IN COMMAND FLEXIBILITY! LIBRARY COMMAND*, 
UUTUML COMFUTED^OOTO, CONFUTED I/O FORMAT «NTROL, OFTION. 

IN FOCARL. 

THIS MANUAL OESCRIEES TME SYNTAX AMO USE OF COMMANDS FOR BOTH COLFAC 

COMMANO*REF«RTOIRB.* HOW®AWK*,OME*COMMAMO, S^BCIFIC TO ONE 
ANO NOT TME OTHER. TO HELM CLARIFY DIFFERENCES BETNEEN THE TNO, 

!%: a )lffiS. a SS; i KS 8 w SB R ' > c ,Se T0 eoL '* e * 

«*F*» PRBCE 0 E 8 THO*E WHICH ARE SPECIFIC TO FOCARL. ENTIRE 

tp QMS n» THESE FLAG® APPEAR* IN A SECTION HEADING, THEN THAT tNT 

;Er” 5 Ei%i«w 5 «. T ?o T ? 5 c«r # iis"cS‘!!«”HnM TH A E FF; t Ai m,u.H.uT tm,. 

MANUAL APPLY TO BOTH LANGUAGE*. 


2, ABBREVIATION* 




iS5M;^ Y c2!:s c 5S.^§5”iisx *So*o^s5N:c B : :;;H;?5S|*irc?SftUy;A5s^ oM 
e;:i o Sugs:sfi: o ^Mrs?Hi;*.«sss‘sSoS;;iS e ?as*JsssAgo lim*. i .n 

au^UbtxmMCTZC^EXFRESSXON^AS Smd in t'| exflanationb follonino. 

MANS AN EXFRESSXONINCLUOINB CONSTANTS, VARIABLES, OR FUNCTION 
VALUES*RCLATEO VIA THE FIVS ARITHMETIC OFERATION. (♦-•/•). 


IXAMFLE 8 I 


. 7,2 *-A F 8 QT( 3 * 2 , 8 * 4 / 17 , 4 ) F*QT(FAB*CPSIN(B/ 2)))*8 


WILL BE INTERPRETED A* THAT COMMAND. SEE THE EXAMPLE ON THE NEST 
PAGE, 
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command 


EFPECT 


* 



T A, 
8 » 
D A# 


TYPE A* OR TRY A 
60 , OR 808H 

DO ALU OR OARNIT ALL 


TYPES THE VALUE 
EXECUTES PR08RAM 
EXECUTES PR08RAM 


OP VARIABLE A 
STARTXNQ AT BEBINNING 
STARTING AT BEGINNING 


THERE ARE two pair op COMMANDS WITH THE SAME INITIAL LETTERS! 
go/goto looout/lxbrary 


6 WITHOUT AN ARGUMENT IS GO««BEGIN EXECUTION AT J N ? T N [J5|5|* 

Q WITH AN ARGUMENT (EaO.'G 1.G7) IS GOTO*«BEOXN EXECUTION AT LINE 

NUMBER SPECIFIED 

L WITHOUT AN ARGUMENT* L0G0UT-*RETURN TO MONITOR 
L WITH ARGUMENTS! LIBRARY COMMAND 

PIR8T ARGUMENT SHOULD BE SUBCOMMAND (C»D»S,X) 

#F* FIRST ARGUMENT MAY ALSO BE "X" OR "0«. 

SECOND ARGUMENT IS FILE NAME yM . un( , ftMLV . 

THIRD ARGUMENT IS ACCOUNT NO. CL X,L c OMMANOS ONLY) 

*F* ACCOUNT NO. MAY ALSO BE USED WITH "L X* COMMAND, 

*p* FOURTH ARGUMENT IS LINE NUMBER (L X COMMAND ONLY) 
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3, program rrkraratzon 

VE FORM OP A COLPAC OR POCARL PROORAM 

A DIRECT COMMAND 23 ONE WHICH.^aiSi^TYPED^THXER^FROM^i^XNDXRGCT 

km* BiWSaWSSt jw »ap 

saste s/wr ass K.!K£t:K.:”a'i.u. 

CONTINUE no« xn OUR EXPLANATION op indirect programming, 
line numbers and sroup numbers 

?: E i s t u-r^. , ?/= oe or^T3:\^ v i L o u T e H?«s: EN To l T , Hi »vSr 

POINT, A SPACE BETWEEN THE LINE NUMBER AND THE COMMAND 18 REQUIRED. 

# SeWK of'SSoU'liSe'numser i\VM ” 

for 

REFERENCING SUBROUTINE®. 

OIRECT VS. INDIRECT PROGRAMMING 

UMNO INOIMCT 60HHANDS 0F«M mvwau mvjhtmm J5I!„ 

B J«SIy C ? 2 !‘ 2 u!lM»» OF THroTHM UNI*! WollM* TM« 

ti^JSISti^at^any^TIMR EVEN DURING EXECUTION, DIRECT PROGRAMMING 
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more than one command per line 
multiple commands mat be specified on one 

8EPARATE0 by semi-colons, there are certain restrictions upon thisi 

l) ANY COMMANO STRINO FOLLOMINO a i;i. c ®5JJ N J_°|!! u I M J n ! A !LhI!!lS 
MILL BE EXECUTED ONCE FOR EACH ITERATION OF THE FOR COMMAND, 

am* COMMAND POLLOuXNQ A COMMKNT STATEMENT ON THE SAME LINE XB 
’ iSiUHIO •» FOe*«L tSm Si!" OF THE COMMENT AND WON'T (I EXECUTEO. 

S) any cohmand foluoninq an erase text, ?od:fy. <.»;«* delete. 

LXBNaFY CALL. ON LIBRARY XTENO CONNANO ON THE SANE LINE 
MILL NOT BE EXECUTED, 


4, EXECUTION COMMANDS! 80, OOTO, DO 

Q 0 , DO , OR 00 ALL CAUSES EXECUTION OF THE PROGRAM STARTING KITH 

MTo'I^eo*! USE* mTmrect CONNANO, etanto froonan execution at 
line AB.CO 

00 s AS A DIRECT COMMAND, EXECUTES ONLY GROUP B. 

DO AB.CD EXECUTES ONLY LINE AB.CO 


B. THE USE OF SPECIAL KEYS IN FOCARL 
PANIC BUTTONS 

aC (a INOICATES THE CONTROL KEY# MARKED CTRL) IS USEO TO ® TOP „** K £J J t Ii22'r 
OF A PROGRAM, CONTROL STAYS IN FOCARL INDICATED BY AN THE CURRENT 

PROGRAM IS PRESERVED, 

its^SoS^cSnrsiTiM! 1 . vivi?™ remain. 

*F* aBS (CONTROL S THEN JUST 8) IS USED ** . B * X I F !S! CURRENT 

#f* FOCARL. CONTROL RETURNS TO MONITOR, INDICATED BY A"." THt CURRENT 
PROGRAM MAY BE RESTORED BY TVRXN8 *8TART* AND RETURN# PROVXOED NO 

B5S&KS “m!“os m tyfeo (except fo* a fen nhicn are described 

•F* IN DECtS "INTRODUCTION TO PROGRAMMING") 

♦F* aBS IS ALSO USEO TO EXIT FROM OTHER PROGRAMS THAN FOCARL. 
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WHILE ENTERING PROGRAMS 
CARRIAGE RETURN (CR3 

IISi M 5uiT C «"« # IN"* T u5TtL , 5*cIJRl2«' t «TU«ll M t« V T%«? mUinSL'l 
SXftSS^S. T 2 , J5!£"?l5r!N 0 SS;JS«SSS N 5vS5?' , 5S«;i:5?«o' r S5:S^Sfe «tu,n. 
line feed (in 

LINEFEEDS ARE IGNORED WHEN ENTERXNO PROGRAMS 
RUBOUT 

NUSOUT MILL OELETE ONE MEVIOUSLY TYPED'SHANACTEN MOM EACH TIME IT IE 
ETRUCKi UR TO THE W * M AT THE LEFT MARGIN, 

BACKARROH (SHIFT 0) 

WHEN TYPINQ IN A ' > M?;*« l “¥‘ 0 ? R IT° , " , * NO ' TR,N0 ’ ™” MLe ™ ”” 
FART OF THE LINE TO THE IEFT OF XT, 

SEE the section on the hodipy comnano mom THE USB Of SfECIAL NETS NHILE 
MODIFYING A PROGRAM LINE, 

during input and output 

RUBOUT 

IN RESPONSE TO AN INPUT "JMMT, TQ TM g w,*, 

*C* IT Hill DELETE CHARACTERS ONE AT A TIME BACH TO TMR • 

#F* IT MILL BE XONOREO. 

BACKARROM (SHIFT 03 

IN NESfONSE TO AN ASM COMNANO, DELETES THE VALUE JUST TYPED IN, ALLOYING 
THE USER TO TYPE IN ANOTHER VALUE. 

aG 

USED TO RING THE BELL 
ALTMOOE 

WHEN USED IN NESfONSE TO AN INPUT BEQUEST, IT OINECTS POCANL TO NBTAIN 
THE FORMER VALUE OF THE VARIABLE, 
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6. variables in focarl 

, VARIABLE NAMES 

a variable name in focarl must beoxn with a letter other than f. f is 

USED TO OENOTE A FUNCTION CALL ANO CANNOT BE U8E0 AS THE FIRST LETTER OF 

a variable name, after the initial letter, any alphanumeric character 

(A LETTER A*Z OR A DlflXT 0*0) MAT FOLLOW, SOME SHIFT CHARACTERS 
ARE ALLOWED AS WELL, BUT USUALLY WITH UNOESIREO EFFECTS IN ASK ANO 
TYPE COMMANDS. E.Q., 1 ” * S X, ETC. FOCARL ONLV REMEMBERS THE FIRST 
TWO CHARACTERS OF A VARIABLE NAME, SO ANY TWO SIMPLE VARIABLES BE0INNINS 
WITH THE SAME TWO CHARACTERS ARE CONSIDERED TO BE THE SAME. 


•SET 8123*7,02 
•SET 8124*14/3 
•TYPE 8123,8124 
4.667 4,667 * 


•SET V!AL*12 
•SET VILE*38 


♦TYPE VIAL,VILE 


35 35 • 


0 SUBSCRIPTED VARIABLES 

YOU MAY DIFFERENTIATE BETWEEN TWO VARIABLE NAMES WITH THE SAME FIRST 
TWO (OR MORE) CHARACTERS BY USING SUBSCRIPTS, VARIABLES MAY HAVE SINGLE 
OR DOUBLE SUBSCRIPTS, THE LIMITS ON A SINGLE SUBSCRIPT ARE FROM 1 TO 
2047. IN A DOUBLE SUBSCRIPTED VARIABLE, THE FIRST SUBSCRIPT IS A POSITIVE 
INTEGER LESS THAN 32, THE SECOND LESS THAN 04. THE SUBSCRIPT (EITHER 
SINGLE OR DOUBLE) MUST BE ENCLOSED IN PARENTHESES. IN A DOUBLE SUB* 
SCRIPTED VARIABLE, THE TWO SUBSCRIPTS ARE SEPARATED BY A COMMA, 

SUBSCRIPTS MAY BE EXPRESSIONS, IN WHICH CASE THEIR VALUES ARE TRUN¬ 
CATED, 

LISTING THE DEFINED VARIABLES 

TO GET A LIST OF THE VARIABLES THAT HAVE BEEN DEFINED AND THEIR CURRENT 
VALUES (STORED IN THE SYMBOL TABLE )% TYPE *TYPE S 


# 7. ASSIGNMENT commandi set 

the SET COMMAND ASSOCIATES A NUMBER1C VALUE WITH A VARIABLE NAME, THE 
SYNTAX OF THE SET COMMAND ISI SET VAsAE, WHERE VA IS A VARIABLE AND 
AE IS AN ARITHMETIC EXPRESSION) E.G., A CONSTANT, VARIABLE, OR FUNCTION, 
EXAMPLE! 

• 

•SET A ■ 3,02) SET B ■ 6.17) SET C(13) • .427) TYPE S 
A ■ 3,02000 

0 • 0,17000 

C (13)* *427,00000 
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8. arithmetic operations and priorities 


+ ADDITION 

• subtraction 

• MULTIPLICATION 
/ DIVISION 

• EXPONENTIATION 


THE ORDER OP PRIORITY OP ARITHMETIC OPERATIONS 181 
a) multiplication and division c i equ J^_!!JJJJJ ty) 

3) ADDITION and SUBTRACTION (EQUAL PRIORITY) 


EVALUATION PROCEEDS PROM LEFT TO RIQHT ACC0RDIN8 TO THE ABOVE 
PRIORITIES* RESPECTING the ASSOCIATIONS OP PARENTHESES. 


THUS* THE EXPRESSION, 8.a*(3,7/2.2 a4»8.00/(PSQT(4.S)*7)) 
IS EVALUATED AS FOLLOWS! 


8,8 * (3,7 / a,a A 4 • S,BB / (PSQT(4.8) * 7)) 
0 A 0 t 


S A*/ 

A 23,4888 
A / / 

A / 

> 0.18788 

A A 

0 0 
A A 

♦ A 
A A 

A A 

A « 

A 

A 

A 

A 

A 

A 


8,00 

A 

A 

A 


2,10089 7 

A / 

A / 
A#/ 

18,3362 
A / 

A t 

A / 

A / / 

A t 

0,88781 
A / 

A / 

A / 

A / 

A»/ 

• 0,36988 

/ 

A / 

A*/ 

- 1.92172 


IN THE DlABRAM ABOVE, THE LINES G0IN8 DOWN TO THE RIQHT TRACE THE 

•oin« ( ooSn*to u thi 

yuffiy fu* vyn LINES MEETi THE OPERATION iPECXPXED BY THE OPERATOR 
LISTED ABOVE THEIR INTERSECTION IS EXECUTED AND THE RESULT TYPED 
AT THE POINT OF THEIR INTERSECTION. 


SEC THE APPEN0ICE8 FOR A DESCRIPTION OF THE AVAILABLE FUNCTIONS. 
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* 6* INPUT/OUTPUT COMMANDS! ASK# TYPE 


ASK 

THE ASK COMMAND X| THE INPUT COMMAND OP THE POCARL LANGUAGE, XT 
ALLOWS THE USER TO ENTER NUMERICAL VALUES WHICH THE COMPUTER 
STORES AND REFERENCES AS NAMEO VARXABLES. POCARL TYPES A "I" TO 
INDICATE THAT XT IS WAITING FOR A NUMERICAL VALUE FOR A VARIABLE TO BE 
eNTeRED; THE USER MUST TYPE a DELIMITER (SEE NEXT PARAGRAPH FOR ALLOW. 
ABLE DELIMITERS) FOLLOWING THE NUMBER# BEFORE POCARL WILL RECOGNIZE 
THE VALUE, THIS IS NECESSARY BECAUSE POCARL DOES NOT JJ. T t2 mo 

INPUT* IF A MISTAKE IS MADE IN TYPING IN AN INPUT VALUE AND A DELIMITER 
HAS NOT SEEN TYPED# THE ERROR CAN BE CORRECTED BY I 

*c* striking The rubout key will oelete one character for each time it 

TYPING A E BACKARROW U (SHIFT 0) DELETES THE ENTIRE RESPONSE AND ALLOWS THE 
USER TO TYPE IN THE CORRECT VALUE* HITTING THE ALTMODE KEY IN RESPONSE 
TO THE ASK STATEMENT*8 M I" INSTRUCTS POCARL TO RETAIN THE FORMER 
VALUE OF THE VARIABLE# INSTEAD OF ACCEPTING AN INPUT VALUE, 

the FOLLOWING CHARACTERS MAY BE USED AS DELIMITERS FOLLOWING A VALUE 
INPUT IN RESPONSE TO AN ASK COMMAND! 

COMMA, COLON# SEMJ.COLON# CARRIAGE RETURN, OR A SPACE 

ANY OF THE DELIMITERS# EXCEPT A SPACE, MAY BE USED WITHOUT TYPING 
IN A VALUE TO SPECIFY A VALUE OF ZERO FOR THE VARIABLE, A SPACE MUST 
BE FRECEOED BY A VALUE# A MINUS SION OR A DECIMAL POINT BEFORE IT WILL 
SERVE AS A DELIMITER, 


TYPE 

THE TYPE COMMAND IS POCARL’S OUTPUT COMMAND* IT IS USED TO PRINT OUT 
THE RESULTS OF THE COMPUTER’S CALCULATIONS SO THEY CAN BE SEEN AND 

interpreted 0Y THE user. 

EXAMPLES! 


•SET S*6 

•ask "What are the values 0P"#i#tAt#i#tBT,i#tet,i 
WHAT ARE THE VALUES OP 
Al»8 SPACE USED AS DELIMITER 
8! ALTMOOE 

Cl7,02 COMMA U8E0 AS DELIMITER 
• TYPE X4.04# A#B#C# l 
•8*000 6,000 7,080 

•TYPE %4#S60»1#1130#1#1401#l, 1680 # t 
960 

1401 NOTE THAT MULTIPLE ITEMS CAN BE OUTPUT IN ONE TYPE OR ASK 

1620 COMMAND SO LONG AS THE ITEMS ARE SEPARATED BY COMMAS, 
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10. NUMERIC FORMATTING IN THE TYPE 0TATEMENT 

THERE ARE THREE TYPES OF NUMERIC FORMATTING AVAILABLE IN FOCARL* 

INTEGER. FLOATING-POINT OR DECIMAL# ANO EXPONENTIAL OR E FORMAT, 

THE FORMAT IS SPECIFIED BY USING THE X OPTION. 

J!.« Ji'.L?! „.»<#. to m «.ht or 

X miO^lxrONBNTlIt POHHATI A »*K-Jt.ACe OCCIMAL. rOLUOMSO 

BY THE LETTER E# FOLLOWED BY THE POWER OF 10 WHICH THE 

THi .jTr ISS M«!T-5 SWaS’J^^. ¥ B-SBBS/* m -- 

iSii T N TH:5"rS°^io«D M ?s5 !;“?5; , 'iu.s”r. , ri§A?;5o^oi N ?%5S5A?! e mT 

«S£«rS?llSc OUTPUT UNDER AHOOiritO I.rORMATl ONLY THE NUMBBPOP 
Si«5i?Ic5hT OIOITBtur TO B) BIYEN IN THE BPEOIRIEO PORMAT ARE RETAINED 
IN THE DECIHAU PART OP THE E.PORHATTED NUHBER. 

A number CONTAINS MORE SIGNIFICANT 010IT8 TO THE RIGHT °F THE DECIMAL 
THAN IS ALLOMEO UNDER THE OUTPUT FORMAT, THE NUMBER WILL BE ROUNDED 
FIT THE SPECIFIED FORMAT. 

nMf* A roomAT IB SPffiXFlED, OUTPUT WILL CONTINUE TO BE TYPED UNDER THIS 
FORMAT UNTIL ANOTHER FORMAT IS REQUESTED OR A 0E J A W- T CONDITION CAUSES 
OUTPUT TO BE TYPED IN E-NOTATION AS EXPLAINED ABOVE, 

*ub.i COMMANDS aSK. SET, AND TYPE# FORM THE BASIS OF ANY PROGRAM. 

BSJ«S?Si»£?. TM 5-“?SrJ5a«55S , «5S«K5V T VHG , S5*SS55SAo*5S SSSS^i m«s N 

execution of an INDIRECT program. 


•WRITE 
C FOCARL-14 


81,18 TYPE "THIS IS A DEMONSTRATION PROGRAM"! 
BUIS ASK "WHAT IS THE VALUE OF ASA,l 


01,17 SET B»FSQT(A)|8ET C«A*A»SET D»Aa5 
01,19 TYPE " A SQ, RT. OF A 

01,81 TYPE A," »,B,« SC," 

* 

THIS IS A DEMONSTRATION PROGRAM 
WHAT IS THE value OF AllS 

A SQ. RT. OF A AaB 

13,0000 3,B058B 169,000 


Aa2 

" # 0,1 


Aa3 

8197.00 


AaS" 1 
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11, ASCII FORMAT XNRUT/OUTRUT 


EACH CHARACTER ON THE TTY KEYBOARD 18 INTERPRETED AND STORED 8V THE 
COMPUTER AS A NUMBER, THE CODE WHICH THE COMPUTER USES IS CALLED 
ASCII* THE UNITED STATES OP AMERICA STANDARD CODE FOR INFORMATION 
INTERCHANGE. THIS COOE. OR A MORE COMPACT FORM OF IT, IS USED IN 
ALL INTER-MACHINE COMMUNICATIONS, THE XA FORMATTING OFTXON JJ* FOCARL 
ALLOWS THE USER TO WORK WITH BOTH THE NUMERIC AND CHARACTER REPRE¬ 
SENTATIONS OF EACH CHARACTER. FOR A LIST OF THE CHARACTER *JT AND 
THE NUMERIC CODES CORRESPONDING TO EACH CHARACTER, SEE THE APPENDICES, 


XA INPUT 


SPECIFYING ASCII FORMAT IN AN ASK STATEMENT RESULTS IN TWO IMMEDIATELY 
NOTICEABLE CHANGES! THE M * M IS NOT TYPEO, AS IT IS UNDER A NUMERIC 
FORMAT, AND ONLY ONE CHARACTER IS ACCEPTED FOR EACH VARIABLE ASKED, 
WHEN A CHARACTER, FOR EXAMPLE, A, IS TYPED IN RESPONSE TO AN ASK 
STATEMENT, THE NUMERIC VALUE OF A, 103, IS STORED AS THE VARIABLE, 


XA OUTPUT 


WHEN XA IS SPECIFIED IN A TYPE STATEMENT, THE COMPUTER WILL TYPE OUT 
ALL VALUES AS THEIR CHARACTER COUNTERPARTS, IF THB V;E OEFXNED. n , 
fqcarl TRIES to find a character counterpart for the integer PART of 
the numeric value, the integers from iss to ass have direct character 
cooes In focarl, although some are non-printing, THE SAME CHARACTER 
WILL BE PR00UCED BY ANY NUMBER WHICH DIFFERS FROM THE DIRECT-CODED 
NUMBER BY AN INTEGER MULTIPLE OF 188, FOR EXAMPLE, THE OXRECT CODE FOR 
A IS 103, THE NUMBERS SB, 381, 440, 3800, AND -3807 WILL ALSO PRODUCE 
THE LETTER "A» WHEN OUTPUT UNDER XA FORMAT. 


+NQTE+ 

JUST AS WITH ANY NUMERIC FORMAT, ALL INPUT AND OUTPUT WILL BE HANDLED 
UNDER THIS FORMAT UNTIL ANOTHER FORMAT IS SPECIFIED. 


EVALUATION OF ALPHABETIC RESPONSES TO INPUT 


FOCARL WILL ACCEPT AND EVALUATE ALPHABETIC CHARACTER STRINGS TYPED IN 
RESPONSE TO A NUMERICALLY FORMATTED ASK STATEMENT. .^^ES A SCRIBED 
TO THE LETTERS (EXCEPT E) CORRESPOND TO THEIR POSITION IN THE ALPHABET, 
X.E., A»t, B«8, Ii86, M«13, ETC. E DENOTES EXPONENT, OR POWER OF 10. 

WHEN E IS THE FIRST CHARACTER OF A STRING TYPED *2f_ R J S 55 N ?E» T P*i5 ru,„ 
INPUT REQUEST, THE VALUE OF THE STRING IS ZERO. IF E IS THE LAST CHAR¬ 
ACTER OF THE STRING, A DELIMITER OTHER THAN A SPACE MUST BE USED, AND THE 
FOWER OF 10 IS ASSUMED TO BE 0. IF THE NUMBER CORRESPONDING TO A LETTER 
IS GREATER THAN 0, THE TEN’S DIGIT WILL BE CARRIED IF THAT CHARACTER IS 
FART OF A STRING. A comflete LIST OF THE NUMERIC VALUES OF THE 
characters is given in the affenoices. 
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18. options in both ths ask and type commands 

QUOTE 

A character string enclosed in quotation harks 

VERBATIN WHEN THAT STATEMENT IS EXECUTEO. *G (BELL) WILL *INQ 

THE BELL. 

exclamation point 

AN EXCLAMATION POINT AS AN ARGUMENT OF A 

CAUSE FOCARL TO GENERATE A CARRIAGE RETURN/LXNE FEEO COMBINATION, 
NUMBER SIGN (N) 

# AS AN ARGUMENT OF AN I/O COMMAND WILL GENERATE A CARRIAGE RETURN 
WITHOUT A LINE FEED. 

DOLLAR SION (S) 

THE S OPTION WILL GENERATE A PRINTOUT OF THE SYMBOL TABLE, A 
LIST OF ALL OF THE DEFINED VARIABLES ANO 

XT MAY BE USED IN AN INDIRECTLY PROGRAMMED STATEMENT! HOWEVER. 

THERE IS USUALLY LITTLE REASON TO DO SO. 

*F* IF I/O WAS TO DISK (DATA FILE) IT IS CHANGED TO TELETYPE. 

QUESTION MARK (T) 

A VARIABLE NAME ENCLOSEO IN flB IN AN I/O SlotJ l/HanE AND 

OUT. THE ASK STATEMENT WILL TYPE A COLON AFTER THE VARIABLE NAME. AND 

THEN WAIT FOR THE USE* TO TYPE IN THE VALUE! THE TYPE ®TATEMENT WILL 
FOLLOW THE VARIABLE NAME WITH ITS CURRENT VALUE. MULTIPLE VARIABLES 
CAN BE INCLUDED IN THE SAME SET OF T'S. AS LONG AS THEY ARE SEPARATED 
SV SPACES OR COMMAS. IN THIS INSTANCE. FOCARL will TYPE ®°th THE VARX» 
able name ANO THE DELIMITER BEFORE TYPING THE VALUE (TYPE) OR I CASK). 

NOTtl CONMAS SEPARATING QUOTES, l«8 AND N•8 FROM ONE ANOTHER MAY BE 
OMITTED. 


IS. TRACING 

FOCARL PROVlOES AN OPTION TO ALLOW THE USER TO TRACE THE EXECUTION 
OF HIS PROGRAM. WHEN A t IS ENCOUNTERED, EXCEPT IN A COMMENT LINE OR 
WITHIN A QUOTE IN AN INPUT/OUTPUT STATEMENT, FOCARL ENABLES THE TRACI 
"uTURl! T.M. RIMIM UUhM UNTIL M.TWR T I* MMJHITIRI.. e«H 
"OOD-NUMBIREO" t ENABLES TRACE, WHILE EACH "EVEN-NUMBERED" 

Snin*Sn»ilm!*t'«i m.inS win# mny ch»n*ctm that PoeANL 

?5ryl!K 5! MS!" IN * COHMAND ATATIHENT* 

IT can be imbeddeo in a line number or a variable name, or before, 

FOLLOWING, OR EVEN WITHIN A COMMAND. 

AN EXAMPLE OF A PROGRAM TRACK IB GIVEN IN THE APPENDICES, 
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14. COMMENT 

THK COMMENT COMMAND 18 USED TO INCLUDE COMMENT* IN A PR08RAM 
ONCE A COMMENT COMMAND 18 ENCOUNTERED, A tI NK 18 

ASSUMED PART OP THE COMMENT. THUS, COMMENT SHOULD SB THE LAST 
COMMAND TO APPEAR IN A LINE, SINCE COMMANDS P0LL0WIN8 IT ON THE 
SAME LINS WONIT SB EXECUTED. 
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10, *C* THE SCOPE A8 AN OUTPUT DEVICE 
‘OPTION SCOPE AND ERASE SCOPE COMMANDS 

M««« I!°pS«t U .J SK'U? S'lUttM'SSJi*" °Su^St?SSS S&“he 

tCORE C HAS Y THE P ADVANTASB OP BEXNO BOTH FASTER ANO QUIETER THAN TTY OUT- 
?5?! B "oft THE8E D REAS0N§i MUCH OP THE PROGRAMMING ANO DEBUGOXNQ DONE 
IN COI.PAC I* DONE USINS SCOPE OUTPUT. 

UPON ENTERING COLPAC, TELETYPE OUTPUT J 5« A l , .!li5 iD %m T @Al R Tll»N e TNANlpER8 

i^ T s5T?s?:^ N jru B rNrcT«rc^raro:si%iiS f §jo4^ p s c ot;^^ T r.?«»K» 

PRINTED AT THE LEFT MARGIN OP THE SCREEN, 

tHI laiil acOPE COMMAND IS U8E0 TO CLEAR THE DISPLAY PACE AND RESET 
T« JItIriGK TO THE TOP op THE SCREEN, THE ERASE SCOPE COMMAND DOES NOT 
AFFECT THE PROGRAM OR SYMBOL TABLE STORED IN CORE. AND I? MAY M P 

GRAMMED INDIRECTLY. 

scope information and scale size 

THE 0 CENTER 0 OP T THE Y 8COPE PACE T IS A THE l ORIGXNrwiTH L COORDXNATES CG,0). 

vy « arnecr my tui a it f s ti l ttWRAP^ANQUND^ SCOPE $ WHICH MEANS THAT A 

MM DM TM «OPE ON ONE IIOE NtLl RETURN ON THE OTHER (IDI. 
fu‘aS»SllOUM LENGTH IN THE "-DIRECTION II APPROXIHATELY TO! UNITlX 

STth! ^DiPMTioriSou? a» met*. the point ctas.os). pop emhpue, 

WOULD BE PLOTTED AT APPROXIMATELY (-888*98), 

SCALE SIZE 

WHEN PRINTING CHARACTERS OR TEXT STRINGS ON THE SCOPE, XT 18 JOHITIHIG 

nffSlRtASLE TO have Them enlarged por ease in reading, the s option 0 
THlSvPE^OR ASK COHHaNO IS USED TO CHANGE THE SCALE SIZE, THE PORHAT 

op The cowhand x* gihplyi 


type se 


B BEING a NONNIGATIVE number, THE INTEGER PORTION OP 
WHICH IS TAKEN TO BE THE ENLARGEMENT FACTOR, 


in enlargement pastor op • or i oehotei ""I" V«Sm5$ T mToS Sf 0 ™ 
ISmSSSouSe”; zerothaonipication‘ the‘cha!!a??em SS5ho printed ai a 

; :,fe ir’iSS'M sw.‘a~, 

S5 Hs a ‘sra.* 8.i«T!Ww::Mr 

N0 MAY °» R E°rN A ARi?H 0 HrTrC ErPRESsloS, IN WHICH CASE ITS VALUE IS 
TRUNCATED TO DETERMINE THE MAGNIFICATION. 


18 



4 


! 





10.* *C* PLOTTING ON THE COT DISPLAY, THE "SCOPE" 

eOLPiC ALLOW# THE USER TO PLOT GRAPH! AND DXA0RAH8 ON THE-5E tJ !!!iL 

speciptino the coordinates op the i points ' f ° “'IfSJJ'Sj eIpressioXI? 

VALUE!# DENOTED BELOW A! X,Y ANO A#B# HAY BE ARITHMETIC 

is :«;HaE?ic N «ssEMxo!! c ?s5'TSs** c cSS«iNXvro?'?HE , s«5??'ASS” e iS is 

emtSmtk ieprieeion ”or the t coordinate of the point. 

TO HAKE THE POINTS PLOTTED EASIER TO SEE. THE USER J* Y HAHT TO ®RiSyJui. 

Kor"!"*,!!™ it S’sm/MSs CONNAND^SlLL^PRINT THE TEXT STRIN8 ENCLOSED 

?5E B ^ 0 SS?tS5°ir5:So A ; 0 ' , SiSv2«T’ , ;; , iN?xS.*i T ?«ii M ?T T » T 25*?TSS T ;o u Tl;« left. 
;S§p£ OMM 5¥° B 5iS; I'l'm smheStTonXktiIs ?«"las?SS!St , pIJt? N eoTho 

No*!!* 'an'isolated line ,SSE 0 “S"s. ,, S U t*i.« 

saws ja^AST^KiSV^ ? 5 i? 5 Ir^rsr 

i^i^s^iVuSSSsTJ^'*:; s^^ier.uiiuwrwiT -oulo » 

PLOTTED U8XNG A PLOT *,X,Y COMMAND, 

Eis-abMS? 

HAVING A RADIUS OP 28, THE U8ER MXGHT 8AYI *PLOT !,2Bf PLOT *#»#» 

^SQSSP^^^SaSSST 

BEGINNING AT THE LAST PRIVXOULY PLOTTED POINT, 

■ rSiSKS.::’ mm 

WITHIN A PLOT STATEMENT, 

gp»^«SI» 3 fS£OTP^“ 

APPEAR on the scope pace. 
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17; tC* JOYSTICK 

Au fui i/i (a WITH CRT DISPLAY®* THE USER MILL PXND AN INSTRUMENT 
CALLED A JOYSTICK* XT IS A SINGLE# OMNIDIRECTIONAL CONTROL USED TO GUIDE 
A DOT OF LIGHT* THE CURSOR# ACROSS THE SCOPE FACE* ACROSS THE END OF 
THE JOYSTICK CONTROL HOUSING IS AN ORANGE HINGED BAR LABELLED "INTERRUPT * 
THE INTERRUPT BAR MAY SB USED TO ENTER THE COORDINATES OP THE CURSOR 
AT THE TIME THE BAR IS PRESSED. 

the commano TO enable THE JOYSTICK ISI 

JOYSTICK alpha,beta ALPHA ANO BETA BEING ANY VARIABLES 

WHEN THE JOYSTICK COMMAND IS EXECUTED# THE CURSOR APPEARS ON THE SCOPE 
IN f A POSITION RELATIVE TO THE POSITION OP THE JOYSTICK. MOVING 
THE JOYSTICK MILL CAUSE THE CURSOR TO MOVE ACROSS THE PACE OP THE SCOPE. 

125 Jsiiml SIll remain enabled until the interrupt bar is pressed. 

PRESSINfi THE INTERRUPT BAR CAUSES THE COORDINATES OP THE CURSOR TO BE 
Km* A*tSk VARIMIE*AIM* 'no MTU ALMA .TOM* TMl X.eOOOOIHATE. 
r beta stores the y-coordxnate. 

THERE ARE TKO OTHER JOYSTICK COMMANDS IN COLPACl 
JOYSTICK «, X#Y AND JOYSTICK 

JOYSTICK #.X»Y DOES NOT WAIT POR THE INTERRUPT SAR TO BE PRESSED# 

BUT STORES THE COORDINATES OP THE CURSOR AT THE MOMENT THE COMMANO IS 

EXECUTED. 

joystick IS A CONDITIONAL BRANCH STATEMENT* XT CHECKS THE INTERRUPT 
MUM TO *«« If THI XMTtMUM (A* HA* MEN MIMED Diner THE 

JOTITIM COHHANO. IT JT HA* MiJ TMSIID, I? c"u*I* ' 

OF THE LINE TO BE EXECUTED* IP IT HAS NOT BEEN DEPRESSED# IT CAUSES 

execution TO continue kith THE NEXT line. 


20 



* 





16 ( GOTO COMMAND 

OOTO tl AN UNCONDITIONAL BRANCH STATEMENT. MHBNBVER A GOTO AB.CD 

^nMMAyn ti EMfiOliNTKRIDi THB RRO0RAH CONTINUES EXECUTION ociiXNNJwy 

l?S! 52til t5S «nd S? tni froiran or until frooran micution 

II TIRMJNATID IT ONE OF TNI FOLlONINtt 
ERROR (ERROR MESSAGE XI TYPEO) 

*C* LIBRARY CAUL EXECUTED INDIRECTLY IS EXACTLY LIKE A LIBRARY EXTEND 
*P* LIBRARY DELETE 
LOGOUT 
QUIT 

RETURN MXTHOUT a CORREBRONDXNB 00 COMMAND 
AC OR ABB PROGRAM INTERRUPT 
THE COMPUTER "CRASHES" 

cd nay te an aritnnitic kfrimion io lono ai a uni nitn tnat nuhoir 
exists in the program. 


19. IP COMMANDS 

THE IP STATEMENT IS CALLED MUB? C fXf ST T BBPORE ™* T X8 ' 

5t*«U TS225«S N 2oiTSoL %S^M«7“S U “oTH«S%I2? 5r ?HS FROORAM. 

TNlSi »RI tSo T?FEI OF IF ITATININTI IN FOCARLI VALUATIONAL AND 
RELATIONAL. 

VALUATIONAL IP 

THE PORMAT OP THE VALUATIONAL IP STATEMENT IS! 

IP CAR) AB.CD, EP.OH, IJ.KL 

iV AT ATI MINT eNICKl'FOR » .SSl&ft.”".. 

lini ?“ h ”; , j' lu I h 5. i ! m ! ,J,tnnitic IIFREMtON II nigativi, it 

S'iNCNII TO UNi‘aS!cOIIF «rS; TO LINI if.ONI IF FOIITIYE. 

TO LINE IJ.KL 

less THAN THREE ARGUMENTS CAN BE GIVEN POLLOMXNO AN IP COMMAND, 

1X1 IP*A<G»^(CA»B)«•), 8 IT^BRANCHED*TO LINE B.SBf OTHERNISE, THE TYPE 
COMMANO MILL BE BXECUTEO. 

8X1 THE^TYP* COMMANO^MILL^ALMAYS BE EXECUTEO, SINCE NO BRANCH IS 
INOICATEO. 
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RELATIONAL IF 

THE FORMAT OF THE RELATIONAL IF ITATENENT Ml 
IF (EMEE) I (COMMAND STRING) 

El ANO EE ARE ARITHMETIC EXPRESSIONS# ANO A OENOTES ONE OF THE 
FOLLOWING RELATIONS BETWEEN THE VALUES OF THE TWO EXPRESSIONS! 


• EQUAL TO # NOT EQUAL TO 
«« OR M LESS THAN OR NOT EQUAL TO 
ft» OR *P GREATER THAN OR NOT EQUAL TO 
(I,E« # NOT EQUAL TO) 

M» LESS THAN OR GREATER THAN 


€ LESS THAN * OREATBR THAN 
«■ OR •« LEGS THAN OR EQUAL TO 
•» OR M GREATER THAN OR EQUAL TO 
4» OR M less THAN OR OREATER THAN 

««» OR «»# OR PM OR MM OR fr<* OR ... .... . 

4 «» OR ao OR <M OR IN OR *■« OR mi LESS THAN OR EQUAL TO OR 

OREATER THAN (I.S.# ALWAYS TRUE). 

THE RELATIONAL IF COMMAND EVALUATES THE TWO EXPRESSIONS ANO 
THEN COMPARES THEM ACCORDING TO THE INOICATED RELATION, IF THE 
STATEMENT IS TRUE, THE COMMAND STRING FOLLOWING THE SEMICOLON IS 
EXECUTED. IF THE STATEMENT IS NOT TRUE. EXECUTION CONTINUES WITH THE 

/^DELIMITER*(SEMICOLON A OR SPACE) NEED NOT SEPARATE THE OUTSIDE RIGHT 
PARENTHESIS IN A RELATIONAL IF COMMAND FROM THE COMMAND STRING WHICH 
FOLLOWS, FOR EXAMPLE! 


•IF (NS«G)IF (NG*8»4)TYPE NS, l 
• 9.000 

•ASM XiXf IF (X«0HI)TYPE "HOMOY»l 

I HI 

HONOY 

• 


THE SCALPHABETIC STRING) OPTION OF fVALUATIJja^ALPHABETIC J**PONSM^TO 
AN INPUT REQUEST MAT SE USED IN AN IF STATEMENT, SEE LINE 4.1 OF THE 
EXAMPLE OF A PROGRAM TRACE IN THE APPENDICES, 


SB. QUIT COMMAND 

THE QUIT COMMAND TERMINATES PROGRAM EXECUTION. 
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SI, DO AND RETURN 

‘THE 00 COMMAND IS USED TO SUSPEND SEQUENTIAL EXECUTION OP COMMANDS, 
EXECUTE ZNTERVENINO COMMANDS, AND THEN CONTINUE EXECUTION AT THE POINT 
SUSPENDED. THE INTERVENING COMMANDS CAN SB A SINGLE LINE OR AN ENTIRE 
GROUP AS SPECIFIED BY THE ARGUMENT OP THE DO COMMAND, THE DO COMMAND 
WITHOUT AN ARGUMENTi USED AS A DIRECT COMMAND, WILL BE INTERPRETED AS A 
DO ALL COMMAND BY POCARLe THIS COMMAND CAUSES EXECUTION TO BEGIN AT THE 
SMALLEST LINE NUMBER JUST LIKE THE GO COMMAND. 


the user may include arithmetic EXPRESSIONS as arguments OP DO COMMANDS, 
80 LONG AS THE LINE OR GROUP NUMBERS REFERENCED EXIST IN THE PROGRAM. 


DO N (N HAS A VALUE WHICH CORRESPONDS TO A GROUP NUMBER) 

THIS COMMAND WILL BEGIN EXECUTION OP GROUP N AT THE LOWEST LINE NUMBER 
ANO WILL PROCEED THROUGH THE GROUP SEQUENTIALLY, WITH THE FOLLOWING 
EXCEPTIONS! 

1) A BRANCH STATEMENT TO A NONSEQUENTIAL LINE WITHIN THE GROUP WILL BE 
V EXECUTED NORMALLY, ALTERING SEQUENTIAL EXECUTION. 

2) A DO N.AB TO A LINE WITHIN GROUP N WILL BE EXECUTED CORRECTLY. 

3) A BRANCH COMMAND TO A LINE OUTSIDE THE GROUP WILL RESULT IN POCARL 
EXECUTING ONLY THAT LINE, BEFORE RETURNING TO THE NEXT LINE IN GROUP 
N AND CONTINUING EXECUTION THERE. HOWEVER, IP THE LINE BRANCHED TO 
CONTAINS A DO OR A GOTO COMMAND, THAT COMMAND WILL BE EXECUTED BEFORE 
POCARL RETURNS TO GROUP N. THIS "CHAINING" EFFECT CAN CONTINUE TO 
MULTIPLE LEVELS, THE DO WILL EXECUTE ONLY ONE LINE WHEN A BRANCH 
COMMAND OXRECTS IT OUTSIDE THE GROUP SPECIFIED, BUT THAT LINE WILL BE 
EXECUTED COMPLETELY BEFORE RETURNING TO THE DO GROUP, GROUP N. 


DO L.AB (L.AB IS A LINE NUMBER) . . • 

THIS COMMANO CAUSES THE LINE L.AB TO BE EXECUTED. IF LINE L.AB CONTAINS 
A DO STATEMENT, THIS WILL BE EXECUTED COMPLETELY BEFORE RETURNING TO 
LINE L.AB. IF LINE L*AB CONTAINS A BRANCH STATEMENT, ONLY THE LINE 
SPECIFIED BY THE BRANCH COMMAND WILL BE EXECUTED. IF, HOWEVER, THIS 
LINE CONTAINS A DO OR BRANCH COMMANO, IT WILL ALSO BE EXECUTED BEFORE 
CONTROL RETURNS TO LINE L.AB. 


# THE DO COMMANO CAN ALSO BE USED TO 00 RECURSION BY INCLUDING A DO N 
COMMAND INTERNAL TO GROUP N. FOR EXAMPLE, THE PROGRAM LINE! 

02,20 IF (BCM-AL) 3.1,2.27100 2 


RETURN 

THE RETURN COMMAND IS USED IN CONJUNCTION WITH A DO STATEMENT, A RETURN 
COMMAND SIGNALS The end of EXECUTION OF a DO COMMAND. EXECUTION 
CONTINUES WITH THE NEXT SEQUENTIAL COMHAND, OR, IF THE DO WAS NESTED 
INTERNAL TO ANOTHER DO COMMAND OR FOR ITERATION, EXECUTION CONTINUES 
AS THEY DIRECT. 

A RETURN COMMANO, IF ENCOUNTERED WHILE NOT EXECUTING A DO COMMAND, 

WILL FUNCTION AS A QUIT COMMAND, TERMINATING PROGRAM EXECUTION, 
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22. FOR AND BREAK 

THE FOR COMMANO IS USED TO FERFORM ITERATION*. THE SYNTAX OF A FOR 
COMMAND 191 

FOR VA»VI,VP,IN) (VI, VP# IN CAN II ARITHMETIC EXPRESSIONS) 

WHEN THE FOR COMMAND IS EXECUTED, THE VARIABLE, DENOTEO VA, IS JIT 
EQUAL TO THE INITIAL VALUE, VI. WITH VAjVI, THE COMMANO STRING FOLLOWING 
THE IS EXECUTED. THIN THE INCREMENT, IN, IS AODIO TO VA ANO THIS 
VALUE IS CHECKED AGAINST THE FINAL VALUE, VF. 

IF VA«VF ANO THE INCREMENT IS NEGATIVE, FOCARL CONTINUES EXECUTION 
WITH THE NEXT PROGRAM LINE. m 

IF VARVF ANO THE INCREMENT IS NEGATIVE, THE C0 5 M J N J STRING IS 
EXECUTED AGAIN, THE INCREMENT ADDED TO VA ANO ITS VALUE CHECKED 
AGAIN. THIS CYCLE CONTINUES UNTILI 

VAsVF, WHEN THE COMMAND STRING IS EXECUTED ONCE MORE BEFORE 
CONTINUING EXECUTION WITH THE NEXT LIN!) OR, u 

VA«VF, WHICH CONTINUE* EXECUTION WITH THE LINE FOLLOWING THE FOR 
COMMAND, unless the for command was NESTED WITHIN ANOTHER FOR 
STATEMENT. 

IF VA«VF ANO THE INCREMENT IS POSITIVE, THE COMMANO STRING IS 
EXECUTED, VA IS INCREMENTED BY IN, ANO ITS VALUE AGAIN COMPARED WITH 
VF. THIS CYCLE CONTINUES UNTIL VA*VF, THIN sxe JUTION IS OIRECTEO TO 
THE NEXT SEQUENTIAL LINS, UNLESS THE FOR LOOP JUST COMPLETED WAS 
NESTED WITHIN ANOTHER FOR LOOP. 

WITH NESTED FOR LOOPS, THE COMPLETION OF THE JX CR iI X 2KS 2!iiI?E« XNNER 
FOR LOOP IS THE COMPLETION OF ONLY ONI EXECUTION OF THE COMMAND 
STRING OF THE OUTER FOR LOOP, THUS, THE INNER FOR STATEMENT WILL 
BE DIRECTED THROUGH ALL OF ITS ITERATIONS FOR EACH ITERATION OF THE 
OUTER LOOP. THUS, THE STATEMENT! 

FOR X*i f 4. ilFOR J«l,3,l)TYPE "**• 

WILL CAUSE THE TYPE COMMAND TO BE EXECTUTEO It TIMES, 
r IF NO INCREMENT 18 SPECIFIED IN THE FOR STATEMENT, 'KARl ASSUMES AN 
INCREMENT OF 1. THUS, THE STATEMENT COULD HAVE BEEN WRITTEN! 


FOR !•!,4)P0R Jn,3ITYPI 


BREAK 

THE BREAK COMMANO IS USED TO EXIT *ARLY JROM A FORXOOP. A BRtAK 
COMMAND ENCOUNTERED WITHIN NESTED FOR LOOPS WILL CAUSE SKIT FROM 
ONLY THE MOST INTERNAL LOOP, FOR A SAMPLE PROGRAM ILLUSTRATING THE 

break command, see the appendices. 
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23, TEXT SDIT1NQ COMMANDBl WRITE/ ERASE, MODIFY 


WRITE 

THE WRITE COMMAND IS USED FOR LISTING OUT TME USER** PROGRAM, 
ARE three OFTIONS TO TME WRITE COMMANOI 


THERE 


WRITE AS.CO 
WRITE B 

WRITE OR WRITE ALL 


PRINTS OUT LINE AB.CO (IF IT EXISTS) 
PRINTS OUT ALL OF GROUP i (IF IT EXISTS) 
LISTS OUT THE ENTIRE PROGRAM 


THE WRITE COMMAND CAN SE USED EITHER AS A OXflSCT OR INDIRECT COMMAND, 

but there is little reason to use IT AS an indirect command, 
no error occurs if the line or group is not found ci.e., does not 

EXIST). 

ERASE 

'THE ERASE COMMAND IS USED TO DELETE WOPMATION, 
there are five options to the erase COMMANOI 

ERASE AS,CD DELETES LINE AB.CO FROM XF XT ^ XX8TED) 
fRA&B ft DELETES ALL OF GROUP 8 (ZF XT EXISTED) 

ERASE ERASES THE SYMBOL TABLE (I.E., SETS *LL VARIABLES«G) 

ERASE ALL ERASES ENTIRE PROGRAM, SYMBOL TABLE, AND SCOPE 
•C« ERASE SCOPE ERASES SCOPE •• IONORED BY FOCARL 

fHf / fliTf onIi ERASE AND ERASE SCOPE, ARE THE ONLY ONES WHICH CAN BE 
PROGRAMMED INDIRECTLY. ERASE IS OFTEN INCLUOEO AT THE BEGINNING OF A 

Mv b v«RXMbS* na« .«* otriwo, to ht ju «mxulu 

to zcRQe ELIMINATING ANY ^CAPPY^OVBP* FROM THE PREVIOUS PROGRAM* 

NO ERROR OCCURS IF N THE LINE OR GROUP SPECIFIED IS NOT FOUNO IN ERASE 

TEXT COMMANDS. 

MODIFY 

THE MODIFY COMMAND IS USED command^CANNOT 

BY THE USER. THE FORMAT OF THE MODIFY STATEMENT ISI 
MODIFY AB.CO 

WHERE AB.CO IS THE NUMGER OF THE LINE TO J2°J! X !SUeS°5!i! L Ll!liI T pOR 
FOR THE USER TO TYPE IN THE CHARACTER HE WANTS TO SCAMCH THE LINE FOR. 

?T WILL TYPE OUT THE LINE UNTIL IT FINDS THE SEARCH CHARACTER, IF IT 
OOESN«T FIND IT, IT WILL TYPE OUT THE ENTIRE LINE. ONCE IT FINDS THE 
SEARCH CHARACTER, IT WILL WAIT FOR THE USER TO PERFORM ONE OF THE 
FOLLOWING OPTIONS! 

1) TO TYPE IN NEW TEXT FOLLOWING THE SEARCH CHARACTER 

2) HIT THE RUBOUT KEY TO DELETE THE LAST CHARACTER TYPED 

3) TYPE BACKRROW (SHIFT 0) TO OELETE THAT PART OF THE LINE THAT HAS 
BEEN TYPED OUT. THIS DOBS NOT OELETE THE L.ENC NUMBER. 

4) HIT THE RETURN KEY TO TERMINATE THE LINE AT THE SEARCH 
CHARACTER, DELETING THE REMAINDER OF THE LINE 


25 





5) TYPE FORM-PIED (aLI CTRL L) TO CONTINUE TYPING OUT THE LINE UNTIL 

another occurrence op the search character 

6) TYPE SELL (A03 TO CHANGE SEARCH CHARACTER, AND THEN TYPE THE NEH 
SEARCH CHARACTER 

7) TYPE LINE PESO TO SAVE THE REHAINOER OP THE LINE 
♦P# THE MODIFY COMMAND RETURNS TEXT I/O TO THE TELETYPE. 


24. LIBRARY COMMANDS 

DISK STORAGE OP USSR PROGRAMS 

FOR MOST PURPOSES, DISK STORAGE IS TO BE TREATED AS ONLY TEMPORARY 
STORAGE. THIS IS A RESULT OP TWO PACTORSl THE LARGE NUMBER QP SYSTEM 
AND DEPARTMENT PILES WHICH ARE PERMANENTLY STORED ON DISK! AND THE UN¬ 
PREDICTABILITY OP THE COMPUTER. THE FIRST FACTOR MEANS THAT THERE ARE 
FEWER AVAILABLE DISK SEGMENTS FOR USER PROGRAMS, WHICH NECESSITATES 
A PRIORITY RANKING OP USER PROGRAMS STORED ON THE SYSTEM, AND PERIODIC 
PURGING OP OLO AND LOW PRIORITY PILES. 

THE SECOND PACTOR MUST BE CONSIDERED AS ONE OP THE HAZARDS OP USING 
A COMPUTER. THE DISK, THE FASTEST MEDIUM OP EXTERNAL STORAGE, IS ALSO 
THE MOST VULNERABLE. INFORMATION STORED ON IT CAN BE LOST IP THE 
SYSTEM CRASHES. THEREFORE, IP YOU WANT TO SAVE A PROGRAM FOR LATER 
USE# MAKE A PAPER TAPE COPY OP IT. 


POCARL LIBRARY COMMANDS 

THE LIBRARY COMMANDS IN POCARL ARC USED TO REFERENCE DISK PILES. 

EACH DISK PILE HAS A NAME AND AN EXTENSION ANO RESIDES ON A 
PARTICULAR SECTION OP DISK, DISTINGUISHED BY AN ACCOUNT NUHBER. 

THE PILE NAME IS PROM ONE TO SIX ALPHANUMERIC CHARACTERS. 

*Pt POCARL APPENOS AN EXTENSION OP .PRL TO PILES IT CREATES WHEN 
*F» STORING PROGRAMS ON DISK. DATA PILES ARE GIVEN .DAT EXTENSIONS. 

»C* COLPAC APPENDS AN EXTENSION OP .COL TO PILES IT CREATES. 

THE SYNTAX OP A LIBRARY COMMAND ISI 

L 4SUB«COMMAND> 4PILC NAME* (ACCT •) 

THE ( AND J OBSIGNATE OPTIONAL PARAMETERS. 

*P* POCARL ALLOWS THE USER TO SPECIFY A LINE NUMBER FOLLOWING THE 
*F* ACCOUNT NUMBER. IT MAY BE AN ARITHMETIC EXPRESSION AND IS PRECEDED 
*F* BY AN *L". IT HAS MEANING IN THE LIBRARY EXTEND COMMAND ONLY. 
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THE 8XX AVAILABLE LIBRARY SUB-COMMANDS ARES _ 

CALL—TO LOAD A PROGRAM 8T0RC0 ON DISK INTO THI USER’S CORE 
4 DELBTE--TO DELETE A PROGRAM STORED ON DISK 

SAVE—TO STORE A COPY OP A USIR’8 PROGRAM ON THE DISK 
XTENO—TO CHAIN PROM A PROGRAM IN CORE TO A PROGRAM STORED ON DISK 
*F* OUTPUT*»TO CREATE A DATA PILE ON DISK OR OPEN AN ALREADY EXISTING 

*F* xnput^to^open^aSata PIL| U TO read THE INFORMATION sack INTO CORE, 

*F* LIBRARY OUTPUT AND INPUT WILL BE EXPLAINED MORE FULLY IN THE 
*F* SECTIONI OATA PILES IN FOCARL. 

library save l s «name> 

THIS COMMAND BT0R|8 A COPY OP THE PROGRAM PRESENTLY IN • • 

CORE IN A DISK FILE WITH THE GIVEN NAME, THIS PILE IS STORED ON THE 
LIBRARY OP THE ACCOUNT THAT THI USER IS LOOGED IN UNDER. 

*F* A DOLLAR SIGN FOLLOWING THE NAME TELLS FOCARL TO DELETE ANY PILE 
*F* HAVING THE NAME SPECIFIED IP IT A *- R8A DY EXISTS ON THE CURRENT ACCOUNT 

*f* before saving the program, this is similar to basxc»s ‘replace • 

*F * EX I *L s PROORMS 

LIBRARY CALL L C «NAME* tACCT RJ 

THE CALL COMMAND IS USED TO COPY A PROGRAM STORED ON DISK INTO THE 

*c**cqlpac*looks for a file of the given name, }ND CHECKS THAT IS 

*C* EITHER a COLPAC or a FOCARL pX M e 2£25 S OTIK 
*C* PROGRAM THAT IS IN THE S/L AND READS INTHE J* 0 **^™®*, JJ®** 

*c* proorammeo indirectly, library call acts exactly like a library 

If* focarl'can only read in FOCARL program piles, IT ERASES THI PROGRAM 
«F* THAT IS IN CORE AND THE VARIABLES BEFORE OOINO SO, 

library call can also be used to call A program prom the pbiudo 
library, account b« or from an account other than the account 
r the user is currently logged in under, an ASTERISK FOLLOWING THI FILE 
NAME IS USED TO READ A PROGRAM FROM THE PSEUDO LIBRARY, 

EXI *L C PROGRM* 

TO CALL A PROGRAM THAT IS STORED UNDER ANOTHER ACCOUNT NUMBER, FOLLOW 

THE NAME of the file by a space and the account number it 18 btored 

UNOER, EXAMPLES *L C 8N0BAL 301 

library delete l d «namb* 

THXB COMMAND DELETES THI DISK FILE WITH THE GIVEN NAME FROM THE 
LIBRARY OF THE ACCOUNT THE USER IS LOGGED IN UNDER. 

*P* PROGRAM EXECUTION HALTS UPON COMPLETION OF THIS COMMANO, 
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LIBRARY EXTEND L X «NAME» IACCT RJ tLAIl 


(AE 18 AN ARITHMETIC 

EXPRESSION) 


THE LIBRARY extend command is ubed IN "CHAINING" prom one pocarl 
PROGRAM TO ANOTHER. BECAUSE OP THE LIMITED CORE AVAILABLE FOR PROGRAM 

ano variable storage* the user may be unable to execute his entire 

PROGRAM AS ONE IP IT USES A LARGE NUMBER OP VARIABLES, THE LIBRARY 
EXTEND COMMAND* INCLUOED AS A LINE IN THE PROGRAM, PERFORMS THREE 
OPERATIONS WHEN IT IS BXECUTEOI 

1) IT RETAINS THE SYMBOL TABLE, BUT ERASES THE PROGRAM IN CORE 
8) IT LOADS THE PROGRAM SPECIFIED PROM OISK INTO THE USER'S CORE 
*C* 9) IT BEGINS EXECUTION AT THE LOWEST LINE NUMBER. 

*C* EXECUTED DIRECTLY* LIBRARY EXTENO IS EXACTLY LIKE LIBRARY CALL. 
*F* 1} IT BEGINS EXECUTION AT THE LINE NUMBER SPECIFIED. IP NO LINE 

#P* NUMBER IS SPECIFIED* EXECUTION STARTS AT THE LOWEST LINE NUMBER 

*F* EXAMPLE OP LIBRARY EXTEND WITH A LINE NUMBER SPECIPIEOl 

*F* *L X PROG LSB«8a 

IF the program to which one is extending is too laroe to pit in core 
simultaneously with all the variables existing at that time, 
program execution halts. 

THE EXTEND COMMANO CAN ALSO BE UBED TO REFERENCE PROGRAMS ON OTHER 
ACCOUNTS BY FOLLOWING THE NAME OP THE FILE BY THE ACCOUNT NUMBER 
OR BY AN ASTERISK. EXAMPLE! 

04,BB L X BTLSH2 301 
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THE FOLLOWING EXAMPLES ILLUSTRATE THE USE OP THE LIBRARY COMMANDS. 


*L C PARTI 
♦WRITE 
C POCARL-14 

Bt.lO TYPE "WE WILL BEGIN HERE1M 

01.20 ASK |A B CT, 1 

01.90 TYPE "NOW WE WILL XTEN0l»Ul 

0UB0 type P »here we come back to the pxrst part TO QUIT l" ,1 
01.60 QUIT 
♦L C PARTS 
♦WRITE 
C POCARL-14 

09.80 TYPE "this is the PROQRAM WE XTENO TO.",I 
09.90 TYPE "SECOND LINE OP XTEND PROQRAMl",1 
L«3,4e TYPE "A 18 «,A," B IS ",B," C IS ",C,1 
09,80 L X PARTI LI,B 
♦L C PARTI 
♦60 

WE WILL BESIN HERB! 

A 1-2.6 B 119,74 Cl,009 
NOW WE WILL XTEND1 


THX8 18 THE PROBRAM WE XTEND TO. 

SECOND LINE OP XTEND PROQRAMl 
A IS -2.80000 B 18 19.7400 C 18 0.08000 

HERE WE COME BACK TO THE FIRST PART TO QUIT1 
♦ 


20, LOGOUT COMMAND 

,THE LOGOUT COMMANO IS USED TO EXIT PROM THE POCARL LANGUAGE AND TO 

SI YOU^CAN NOW RUN*ANY*PROGRAM WHICH DOES NOT LOAD INTO THE G/L, OR 
*C* EVEN LOGOUT THE 0/L TERMINAL PROM THE TIMESHARING SYSTEM, JND RETURN 
♦C* TO COLPAC (AFTER LOGGING BACK IN IP YOU LOGGED OUT OP THE SYSTEM) 

♦C* BY TYPING "R COLPACiR" AND RETURN AFTER MONITOR’S VJUJ JJOGRAM 

*C* WILL STILL BE INTACT ANO YOUR VARIABLES WILL BE UNCHANGED JJJM 
♦C* THE TIME WHEN YOU LOGGED OUT OP COLPAC, IP OUTPUT WAS TO THE SCOPE 
♦£♦ WHEN YOU LOGGED OUT IT WILL STILL BE TO THE SCOPE. 

Ip! POCARL USERS CAN RE-ENTER POCARL BY SIMPLY TYPING "START" ANO RETURN 
♦P^ AFTER MONITOR’S YOUR PROGRAM, VARIABLES AND I/O STATUS WILL 

♦P^ BE THE SAME AS WHEN YOU LOGGED OUT. NOTE! THIS WILL NOT WORK IP 
♦P^ YOU RUN ANOTHER PROGRAM BETWEEN LOGGING OUT OP POCARL F I N 2»w 

♦F* "START" BECAUSE YOUR CORE CONTENTS WOULD BE DESTROYED. ONLY A FEW 
MONITOR COMMANDS SUCH AS "TIME", "TALK", AND "USER" CAN BE EXECUTED 
♦P^ WHICH WILL NOT AFFECT YOUR CORE CONTENTS, 
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86, *M DISK DATA FILE* IN FOCARL 

IN ADDITION TO STORING FOCARL PROGRAMS ON THE DISK, XT IS ALSO 
POSSIBLE* U8XN0 FOCARL* TO CHEAT! AND ACCESS DATA PILES ON DISK, THE 
PILES APE SET UP AS ONE-DIMENSIONAL APRAY8 OP NUMBERS, KITH THE NUMBERS 
REFERENCED VIA THEIR LOCATION IN THE PILE, 

OPfNXNB A DATA PILE FOR OUTPUT—LI8RARV OUTPUT 

THE LIBRARY OUTPUT COMMAND IS U8E0 TO CREATE A DATA PILE OR TO 
OPEN AN ALREADY EXISTXN6 OATA PILE IP THE NAME IS POLLONED BY A 

DOLLAR SX8N, .. 

THE FORMAT OP THE COMMAND IS SIMPLY I L 0 (PILE NAME* 

IP THERE ARE NO DISK 8E0MENT8 AVAILABLE POR A NEW DISK PILE AN ERROR 
WILL RESULT. IP THERE H A PILE WITH THE SPECIPIED NAME ALREADY IN 
EXISTENCE AND A DOLLAR SION DOES NOT POLLOW THE NAME AN ERROR WILL 
ALSO RESULT. 

WRITING ON AN OUTPUT PILE 

ONCE AN OUTPUT PILE HAS BEEN INITIALIZED, XT CAN BE USED POR STORINJ 
DATA, DATA IS OUTPUT TO THE DISK BY USING THE XL PORMAT OPTION OP THE 
TYPE COMMAND. THE PORMAT OP THE COMMANDS AREl 

TYPE XL(ALPHA*,(BBTA*,(THETA*,... 

WHERE (ALPHA* SPECIFIES THE STARTING LOCATION (ON DISK) POR STORAGE 
OP THE OUTPUT VALUES (SETA*,(THETA*, AND 80 ON 


TYPE XL,(BETA»,(QAMMA»,... 

WHERE (BETA* IS WRITTEN IN THE LOCATION FOLLOWING THE LAST 
NUMBER OUTPUT TO OISK# (BAMMA* IS STORED IN THE LOCATION 
FOLLOWING (BETA** AND SO ON. 
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OPENING A DATA PILE FOR INPUT--LX8RARY INPUT 

BEFORE ONE MAT RECALL XNPO«MA T XON FJOH A OA T A FILE* XT ®* .... #n 

OPENED AS AN INPUT PILE* THE LIBRARY INPUT COMMAND (L X *NANi* JACCT j 
is'used TO initialize an exxstxno data fxue as an input file, if the 
FILE DOES NOT EXIST* FOCARL WILL RETURN AN ERROR MESSAGE, THE INRUT 
ACCESS POINTER IS RESET TO ZERO (THE FIRST LOCATION IN THE DATA FILE)* 

READING FROM AN INPUT FILE 

ONCE A DATA FILE HAS BEEN INITIALIZED# INFORMATION MAY BE READ FROM 
IT BY SPECIFYING THE XL FORMAT IN AN ASK STATEMENT, ANALAGOUS TO 
THE TYPE COMMANDS! 

WlLL K REA0 A VALUES < 8TARTiNG T FR0M LOCATION «ALPHA* OF The DISK FILE AND 
STORE THEM AS THE VARIABLES «BETA># <THETA*» ANO SO ON, 

WILL K REAO IN^THbTnEXT^TWO*SEQUENTIAL LOCATIONS AND STORE THEIR VALUES 
AS THE VARIABLES <GAMMA> AND *DELTA»# RESPECTIVELY, 

noth «alpha* is an arithmetic EXPRESSION, «BETA*» ETC, ARE ARITHMETIC 

expressions in the type statement# but must be variables in the 
ASK STATEMENT. 

NOTES ON USING data FILES AND XL FORMAT 

SPECIFYING XL IN EITHER A TYPE OR AN ASK STATEMENT SELECTS DI8K 
FOR BOTH INPUT ANO OUTPUT, UNLESS EXFFESSXON FOLLOWS THE L 

5!b?Vmdim until »noth« 
hhen A specifyxng ^location in‘a C disk I/O Sequired 

SEPARATES XL AND ITS FIRST ARGUMENT# NOR IS A SPACE REQUIRED 
BETWEEN THEM, 


HHKN INFUTTIN# FNOH *ND OUTFUTTINJ TO TNI JAM OATA Fill. **CH COJJHAND 
KEEPS ITS OWN POINTER AS TO THE LOCATION IT HILL NEXT REFERENCE ON 

SPECIFYING X# XA.BC# OR XA IN AN ASK OR TYPE STATEMENT 
I/O FROM DISK DATA FILE I/O TO TTY# PUNCH# LINEPRINTER# READER# OR 
NONPRINTING DEPENDING ON THE CURRENT I/O OEVICES SELECTED USING 
THE OPTION COMMANO. 


THE EXAMPLE ON THE NEXT PAGE 
biquities THAT HAVE arisen IN 


should help clarify some of the 

THE PRECEDING EXPLANATION, 


AM* 
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* 

•WRITE 
C RQCARL-U 


bi.bs 

01.@7 
01.00 
01.11 
01.18 
01.19 
01.10 
01*80 
01.30 
01.39 
01*33 
01.39 
01.30 
01.40 
01.43 
01.90 
01.09 
01.97 
* 


tyre 

tyre 

tyre 

type 

TYRE 


•THIS 18 A DEMONSTRATION PROGRAM# ILLUSTRATING THE»,1 
n U9C OR 0X9K DATA RILES.",I,I . . 

"THE PROGRAM 0TORI0 THE 0QUARE8 OR THE RXR9T 100 RO0XTXVE ",l 
"INTEGERS ON DISK AND RETRIIVE0 THEM A0 REQUESTED" 
n BY the UEER.'.I.l 

THX0 GREATER DATA RILE ANO INITIALIZER XT ROR OUTPUT 
rtta ffTLf fos INPUT 

SQUARE® ON DATA RILE 


L 0 TUG TMI0 CREATES DATA RILE ANO INITIAL 

l x thc this initializer rile ror input 

ROR I®!,1001TYPE XL# Xwrites rirst 100 
Ark x# "number you want THE SQUARE OR",QU,l 
IR (QU) 1.07.1.97.1.33 
XR (QU.RXTRCQUn 1.09.1.30,1.99 
IR CQU-101) 1.3RITYPE "VALUE TOO LARGE",l»GOTO 
ARK XLQU.ANfC THXR 6STR THE VALUE RROM 0X8K 
TYPE X9,"THE SQUARE OR ",QU," XR "»AN,l 
ARK 'lAQAXNf <NO«,0>", AQ, H XR (AS*. 9) 

L 0 TUG DELETER DATA RILE, SINCE XT — .. 

TYPE "VALUE IS NOT AN XNTEOER. TRY AQAXNi",WGOTO 1.3 
TYPE "PR06RAM WORKS ROR POSITIVE XNTE9ERR «»100"»l»QOTO 1.3 


1.3 


1.3,1.9,1.3 
IS TRIVIAL, 


AND HALTS US 




•QQ 

THIS IS A DEMONSTRATION PROGRAM, ILLUSTRATING THE 
USE OR DIRK DATA RILES. 


THE PROGRAM STORES THE SQUARES OR THE RIRST 100 mjitive 
INTEGERS ON DISK AND RETRIEVES THEM AS REQUESTED BY THE USER. 


NUMBER YOU WANT THE SQUARE 00133 
THE SQUARE OR 33 IS 1009 
AGAIN? «NO«,SM0 

NUMBER VOU WANT THE SQUARE OEI00 
THE SQUARE OR 99 IS 9B01 
A6AIN9 «N0a.S»l 


NUMBER YOU WANT THE SQUARE 0010 
PROGRAM WORKS ROR POSITIVE INTEGERS «al00 
NUMBER YOU WANT THE SQUARE 0RI33.4 
VALUE IS NOT AN INTEGER. TRY AQAXNI 

number you want the square orisbi 

VALUE TOO LARGE 

number you want The SQUARE OR 107 
THE SQUARE OR 97 IS 9409 
AGAIN? 4NQ«.9»I.S 
# 

# 


32 








87, *P« COMPUTED PILE NAMES 


COMPUTED PILE NAMES PROVIDE FLEXIBILITY IN PILE REPERENCINO. PILE 
NAMES MAY SS CONSTRUCTED PROM UP TO SIX EXPRESSIONS, OR COMBINATIONS 
OP CHARACTERS AND EXPRESSIONS. 

EXAMPLES! 

-IS THE SAME AS 
•IS THE SAME AS 
-PILE NAME "ABCDEP" 

•PILE NAME «0DP" 

•IP X«l, AND 1*8, PILE NAME "BP 1 * 

•PILE NAME "PIAB8B" 

-PILE NAME "PILE" PROM THE PSEUDO LIBRARY 


*L 

«L 

*L 

*L 

*L 

*L 

*L 


C 

C 

c 

c 

c 

c 

c 


( 80 ) 

( 80 , 81 , 88 ) 

( 1 , 8 , 3 , 4 , 0 , 0 ) 
(Ul,8*8,3*3) 
(X*4,3*l) 
PZ(l,a)3B 
PI(0L#®B)* 


L C T, PILE NAME "T" 

L C TUV, PILE NAME "TUV 


ONE MI0HT ASK THE USER TO 01VI THE NAME OP A DATA PILE. 

EX I 

01.10 ASK %A,"0-CHARACTER PILE NAMSf",A,B,C,D,E,0,1 

01.80 LIBRARY OUTPUT (A,6,C,D,E,0)SfC USE PILE IP IT ALREADY EXISTS. 

01.30 type *done”uouit 


THIS PR00RAM WOULD OPEN THE PILE HAVIN8 THE NAME THE USER 8PEC1PIE8. 
THE "S" TELLS POCARL TO USE THE PILE HAVINO THE NAME GIVEN IP IT 
ALREADY EXISTS ON THE SAME ACCOUNT, IP NOT, A PILE BY THAT NAME IS 
CREATED. 


THE EXPRESSION POR A CHARACTER IS TAKEN TO BE THE DECIMAL VALUE OP 
THE SIX-BIT CHOPPED ASCII CODE POR THE CHARACTER. SPACES ARE SQUISHED 
OUT OP PILE names, 

NOTE! *L C (A,B,C,0) WILL CALL THE PROGRAM WITH THE NAME 
"AB" IP All, B«8, AND C«0*88, SINCE 38 IS EQUIVILENT TO A SPACE, 

THAT IS, SPACES MAY BE USED TO PAD OUT A PILE NAME. 

ALL LIBRARY COMMANDS ACCEPT COMPUTED PILE NAMES IN POCARL. 


80. OPTION COMMANDS 

OPTIONS! TELETYPE, LINIPRINTER, PUNCH, READER, NON-PRINTING, PORMPEED 
SCOPE. 

OPTION TELETYPE (0 T) 

0 T IS USED TO DESIGNATE THE TTY AS THE INPUT/OUTPUT DEVICE. THE TTY 
IS THE OUTPUT DEVICE ASSUMED BY POCARL UPON ENTRY. 0 T WILL RESTORE 
TTY PRINTING PROM ANY OP THE OTHER DEVICE DESIGNATIONS AND PROM THE 
0 N COMMAND. 

•P* NOTE! THE SELECTION OP A DISK DATA PILE POR I/O IS NOT APPECTED BY 
*P* 0 T NOR ANY OP THE OTHER OPTIONS. THE X OPTION MUST BE USED 

*P* TO RESTORE NUMERICAL I/O TO THE TTY, 


A 
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OPTION LINEPRXNTER (0 L) 

‘*C* 0 L 18 AVAILABLE IN COLPAC ONLY IF THE USER TYPES "R COLFAClLPT#" 

*C* WHEN HE INITIALLY RUNS COLPAC, THIS CAUSES AN OVERLAY TO BE LOADED 
«C* INTO THE S/L ALONO WITH COLPAC WHICH PERMITS USE OF THE VXOEOJET 
*C* LINEPRXNTER CONNECTEO TO THE COMPUTER CENTER S/L. THIS FEATURE 18 
*C* ONLY USEFUL IF YOU ARE RUNNING COLPAC AT THAT TERMINAL. 

♦F* 0 L DESIGNATES THE LINEPRXNTER AS OUTPUT DEVICE, 

OPTION PUNCH (0 P) 

*C* 0 P CAUSES THE CURRENT PROORAM TO BE PUNCHED ON THE HIGH-SPEED PAPER 

*C* TAPE PUNCH IN THE COMPUTER CENTER, GO* UNLESS YOU PHONE THE 

*C* COMPUTER CENTER AND ASK SOMEONE TO MAKE SURE THE PUNCH IS TURNED ON, 

*C* IT IS BEST NOT TO USE THIS OPTION UNLESS YOU ARE RUNNING AT THE 
*C* COMPUTER CENTER S/L TERMINAL AND CAN CHECK THE PUNCH YOURSELF. 

*F* 0 P DESIGNATES THE HIGH SPEED PUNCH AS OUTPUT DEVICE. 

C OPTION READER (0 R) 

*C* 0 R CAUSES COLPAC TO ERASE THE CURRENT PROORAM IN CORE AND TO READ 
♦C* A NEW PROORAM FROM THE HIGH-SPEED READER IN THE COMPUTER CENTER. 

*C# AS WHEN USING 0 P, IT IS BEST TO USE THIS OPTION ONLY FROM THE 8/1 
.e* TSRHSNAL IN TNI COH.UTIR CINTKN# »INK ONf S RAMR T»« HU»T M 
*C* MOUNTED* ETC. 

•F* 0 R AS A DIRECT COMMAND WILL READ IN A PROORAM FROM THE HIGH SPEED 
*F* READER. IT DOES NOT ERASE THE CURRENT PROORAM FIRST. WHEN THE 
•F* END OF THE PAPER TAPE IS REACHED* INPUT IS RESTORED TO THE TTY. 

*F* AS AN INDIRECT COMMAND, ANY REQUEST FOR DATA BY MEANS OF AN ASK 

#P* STATEMENT (PROVIDED THAT 0I8K DATA I/O IS NOT SELECTED) WILL 

#F* READ FROM THE HIGH SPEED READER AND THE ASK COMMANO'8 "I" WILL 

«F* NOT BE TYPED. BE BURE TO INCLUDE A DELIMITER (SPACE, COMMA, OR RETURN) 

*P* BETWEEN DATA VALUES ON THE PAPER TAPE, IF THE END OF THE TAPE IS 

*F* REACHED WHILE IN XNOXRECT MODE AN ERROR USUALLY RESULTS. 

OPTION NON-PRINTING (0 N) 

Co N IS USED TO UNDUPLEX THE TTY TO FACILITATE REAOINO IN 8L0W-8PEE0 
PAPER Tapes, o t must be used to restore echoing (duplex). 

option FORMFEED (0 F) 

o F IS USED TO GENERATE LEADER/TRAXLER CODE FOR PUNCHING PAPER TAPES, 

IF THE LINEPRXNTER IS DESIGNATED AS OUTPUT OEVICE AT THE TIME, A 

formfeed will result. 

OPTION SCOPE (0 S) 

*C* 0 8 IS USED TO TRANSFER ALL OUTPUT, XNCLUOXNQ CHARACTER ECHO, ONTO 
*C+ THE SCOPE. 

*F* 0 S IS IGNORED BY FOCARL. 


*F* NOTE* ASSIGNABLE DEVICES ARE RELEA8E0 WHEN FOCARL TYPES ITS *, 


I 
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89-. U8K OF HI8H AND L0-8PESD PUNCH INO READER FOR PROGRAM SAVE ANO 
RESTORE* 

HIGH-SPEED RARER TARE PUNCH 

TO PUNCH A COPY OP YOUR PROGRAM ON THE HIGH-SPEED PUNCH, YOU MUST 

PIRST BE SURE THAT XT IS TURNED ON, ** v 2 U «1! I *I N a T !Si S/Hi ?Jk K n ! Vl * 
AND CHECK THAT XT IS TURNED ON, AND THAT THERE IS A FOLD OR TWO OP 

LEAOER TAPE PUNCHED* XP YOU ARE AT A REMOTE TERMINAL, CALL EXT• 413 
AND HAVE THE CONSULTANT OR LAG ASSISTANT READY THE PUNCH POR YOU, 

TYPE THE COMMAND 0 P (OPTION PUNCH), 

♦ P* THEN TYPE THE COMMAND, WRITE, m „ ,„ tu 

IP NO ONE ELSE HAD THE PUNCH ASSIGNED, YOUR PROGRAM SHOULD BEGIN 

PUNCHING OUT, 

*F* WHEN IT IS DONE TYPE 0 T (OPTION TELETYPE), 

PUNCH A POLO OR TWO OP TRAILER GEPORE YOU TEAR THE TAPE OPP TO ENSURE 
THAT YOU HAVE YOUR ENTIRE PROGRAM, 

*P* THIS May be oone by typing 0 P (OPTION PORMPEED) once or twice 
TH 6N B TURN 8 THE P pUNCM OPP* XP YOU ARB AT A REMOTE TERMINAL, TELL THE 

consultant your name and/or the program name, so he can label the 

TAPI. ALSO XNPORM HIM WHERE TO LEAVE THE TAPE SO THAT YOU CAN PINO XT 
WHEN YOU COME TO PICK IT UP. 


♦r* exi 

*F* 


♦o Pro Pfwro pro t 


THESE COMMANOS WILL PUNCH THE 
PROGRAM WITH LEADER/TRAILER, 


high-speed paper tape reader 

MOUNT THE TAPE IN THE READER 80 THAT THE FOLLOWING CONDITIONS ARE 

8A 1) # THE°ARR0WS PRINTED ON THE TAPE ARE VISIBLE (ON THE TOP OP THE TAPE) 

8) THE ARROWS POINT TO THE LEFT AG YOU PACE THE READER 
3) LEADER TAPE* NOT YOUR PROGRAM, IG OVER THE READ HEAD 
TYPE THE COMMAND, 0 R (OPTION REAOBR). THE TAPE 
WHEN IT HAS BEEN READ IN COMPLETELY, FOCARL WILL TYPE AN ♦, 

WHITE BUTTON ABOVE THE READ HEAD TO RUN THE TRAILER THROUGH THE REAOER 
OR LIFT THE METAL PLATE AND REMOVE THE TAPE, IP YOU HAVE ANY DIFFICULTY, 
ASK THE CONSULTANT OR LAG AG8I8TANT POR HELP, 

♦♦NOTE** AGSOLUTILY DO NOT READ OILED PAPER TAPE IN THE HIGH-SPBEO READERU 


LO-SPEED PAPER TAPE PUNCH AND REAO 

TO PUNCH A SLOW SPEED PAPER TAPE PROGRAM COPY TYPE "0 PrWrO F" AFTER 
POCARL'S «*", PRESS "ON" ON THE PUNCH, AND TYPE RETURN, 

TO READ A SLOW SPEED PAPER TAPE, ERASE ANY OLD PROGRAM BY TYPING "E A" 
AND RETURN, INSERT THE TAPB IN THE READER, TYPE "0 N", AND MOVE THE 
REAOER SWITCH TO "START", THE TAPE SHOULD BEGIN READING IN, WHEN XT IS 

Ill'll MAY^BE^TYPED INSTEAD OF "0 N*, AND THE PROORAM WILL BE LISTED 
*C» ON THE SCOPE AS IT IS READ IN, 
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31 e COMMAND SUMMARY 
COMMAND OPTION SYNTAX 


ACTION 


ASK 

*F* 

*F« 


*C* 

*F* 

break 

-COMMENT 

DO 


erase 


*c* 

*F* 

FOR 


GO 

'GOTO 

IF 


%A A XA|S 

XLA,C 

i A i 

# AN 

» A "A IS", A 

f A lAt 

I AS 

I A SUE 

I 

BREAK 

C this is... 

DO 

DO 9 

00 1.23 

ERASE 
ERASE 3 
ERASE 2.81 
ERASE ALL 
ERASE SCOPE 
ERASE SCOPE 


ACCEPTS ONLY ONE CHARACTER FOR B, 

STORES ASCII VALUE OF CHARACTER 
READS VALUE FROM LOCATION A IN DISK 
DATA FILE INTO VARIABLE C 
GENERATES CR/LF COMBINATION 
GENERATES A CARRIAGE RETURN (CR) 
VERBATIM PRATING OF CHARACTER STRINGS 
TYPES OUT VARIABLE NAME, ASKS FOR VALUE 
GENERATES LISTING OF SYMBOL TABLE 
SETS THE SCOPE CHARACTER SCALE SHE 
POCARL IGNORES THE S OPTION 

CAUSES EARLY EXIT FROM A FOR LOOP 

DENOTES NON-EXECUTED TEXT 

BEGINS EXECUTION A I_J;S!l!S5Ir L I?*, fly?*?* 
EXECUTES GROUP 3, BEGINNING AT LOWEST 

LINE NUMBER OF GROUP 3 

EXECUTES LINE 1.23 

ERASES THE SYMBOL TABLE 
ERASES GROUP 3 

ERASES ENTIRe'pROGRAM AND SYMBOL TABLE 
ERASES SCOPE 
IS IGNORED BY POCARL 


FOR I«l#B,l»T 
FOR JiliBFT X2,J 


PERPORMS ITERATIONS OP COMMAND 
STRING FOLLOWING "f" 


GO 

GOTO 1.93 


STARTS EXECUTION AT LOWEST LINE NUMBER 
BEGINS (CONTINUES)EXECUTION AT LINE 1.B3 


IP (A®8) 1.3,l.B 1.4 
NIP 


CONDITIONAL BRANCH STATEMENT I 
(A»S)40 BRANCHES TO 1.3 
(A»0)«0 BRANCHES TO l.B 
(A-6)»0 BRANCHES TO 1.4 


IF (B-13)4.2,B.US B»A 

” ,« m «JieoH*»No mm* 

RELATION IS TRUE, AE IS ANY 
ARITHMETIC EXPRESSION, rel is 
A RELATIONAL OPERATOR OR 
COMBINATION OF THEM, 
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COMMAND 

•C* JOYSTICK 
*C* 

*c* 

*c* 

*c* 

*c* 

*c* 

#F* 

library call 


LIBRARY oclcte 
library extend 


SYNTAX 

J 

J X#Y 
J *,X# Y 


ACTION 


L 

L 

L 

L 

L 


L 

L 


L X 


♦F* 

«F* 

*F* 

♦F* 

»F» library xnrut 
*f* library output 

*F* 

*F* 

♦Ft 
#F* 

*F* 

library save 

*F* 

♦ F* 

logout 


TEMP 

DEMO* 

PRQRAM 1834 
TEST 
■TEMP 

TEMP Ll.T 
GOODY BBSS LSI« 

TRIALS* LS*X*R* 
L I TRY1 
L 0 TRY! 


L 0 TRY8S 


L 

L 


TEST 

PROGS 


L OR LOGOUT 


MODIFY 


MODIFY 1.3F 


EXECUTES REMAINDER OF LINE IP INTERRUPT 
BAR HAS BEEN PRESSED! ELSE, EXECUTION 
CONTINUES WITH NEXT LINE 
DISPLAY CURSOR! READ VALUES FOR X AND Y 

WHEN INTERRUPT BAR IS PRESSED . 

READS X AND Y! DOESN»T WAIT FOR INTERRUPT 

BAR TO BE PRESSEO 

POCARL IGNORES JOYSTICK COMMANDS 

LOAOS A PROGRAM FROM DISK INTO CORE 
LOOKS ON PSEUDO LIBRARY FOR FILE 
LOOKS ON ACCT, 1834 FOR THE FILE 
DELETES THE PROGRAM TEST FROM DISK 
CHAINS FROM PROGRAM IN CORE TO THE 
PROGRAM CALLAO TEMP ON DISK 
EXTEND TO PROGRAM! START AT LINE t.T 
SB GET PROGRAM FROM ACCOUNT SOBS 

AND BEGIN EXECUTION AT LINE 31.98 
,1 ARITHMETIC EXPRESSION FOR LINENQ 
INITIALIZES DATA FILE FOR INPUT 
CREATES A DATA FILE ON DISK AND 
INITIALIZES XT FOR OUTPUT 
OPENS AN ALREADY EXISTING FILE FOR 
OUTPUT OR CREATES A NEW FILE IF 
NONE ALREADY EXISTS. 

OR CREATES A NEW FILE 
STORES THE PROGRAM IN CORE ON DISK 
DELETES OLO FILE IF IT ALREADY 
EXISTS BEFORE DOING SAVE 
EXITS FROM FOCARL, RETURNS USER 
TO TSS/S MONITOR 

MODIFY A PROGRAM LINE 


OPTION PORMPEEO 

option linepkxnter 

OPTION NON-PRINTING 
«C* OPTION PUNCH 
•F* OPTION PUNCH 
«C* OPTION READER 
•F* OPTION READER 
*C* OPTION SCOPE 
*F* OPTION SCOPE 
OPTION TELETYPE 


OUTPUT LEADER/TRAILER OR FORMFEED ON THE LINEPRINTER 
SELECT LINEPRINTER FOR OUTPUT 
UNDUPLEX TTY 

PUNCH PROORAM ON HIGH-SPEED PUNCH 

SELECT HIGH SPBEO PUNCH FOR OUTPUT 

READ A PROGRAM FROM HIGH-SPEED PUNCH 

READ A PROORAM OR DATA FROM HIGH-SPEED READER 

SELECT SCOPE FOR OUTPUT 

FOCARL IGNORES 0 S 

SELECT TTY FOR I/O 


*C* PLOT 

p 

X, Y 

*C* 

p 

X,Y,"TEXT" 

*c* 

p 

X, Y, 

tC# 

p 

*»X»Y 

♦c* 

p 

X, X, Y 

♦c* 

p 

R,X,Y,D 


*F* PLOT 


PLOT THE POINT HAVING COORDINATES X,Y 

PRINT TEXT STRING AT POINT X,Y 

plot A HIDDEN LINE 

DRAW A LINE SEGMENT 

DRAW A CIRCLE . _ 

DRAW AN ARC WITH (X,Y) AT CENTER, D«DEGREES 

IS IGNORED BY FOCARL 
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command option 

QUIT 

RETURN 


SYNTAX 


ACTION 


QUIT STOPS PROGRAM EXECUTION 

RETURN DENOTES END OP A DO SUBROUTINE 


SET 


8 AI3.4/7. 

TYPE 

X 

TYPE X#A 


XB 

TYPE X4|A 


XA.BC 

T XG,B4,A 


XA 

T XA,L 

•P* 

XL 

T XLA'B 

*P« 

1 

T l 


• 

T # 


S 

T S 


N 

T "HI" 


T 

T SAt 

*C* 

S 

T IAE 

*F* 

1 


WRITE 


WRITE ALL 
WRITE 3 
WRITE 8.78 


ASSIGNS VALUE OP RIGHT SIOE TO VARIABLE 

NUMERIC OUTPUT IN EXPONENTIAL PORMAT 

NUMERIC OUTPUT IN INTEGER PORMAT 

OUTPUT IN DECIMAL PORMAT 

ASCII CHARACTER OUTPUT 

OUTPUT TO A OISK DATA PILE THE VALUE B 

AT LOCATION A 

GENERATES CARRIAGE RETURN/LINE PEED 
GENERATES A CARRIAGE RETURN 
GENERATES A PRINT-OUT OP THE SYMBOL 
TABLE UNDER THE EXISTING PORMAT 
VERBATIM PRINTING OP CHARACTER STRINGS 
TYPES OUT VARIABLE NAME* THEN VALUE 
SETS THE SCOPE CHARACTER SCALE SIZE 
IGNOREO BY POCARL 

TYPES OUT A LIST OP THE ENTIRE PROORAM 
LISTS GROUP 3 
LISTS LINE S.PG 













APPENDIX 

A a PUNCTXON0 

S. ASCII AND NUMEPXC CODES 

C, EXAMPLE OP A PROGRAM TRACE 

D, PROGRAM ILLUSTRATING THE BREAK COMMAND 

E, DIAGNOSTICS 
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APPENDIX a •• FUNCTION# 

fH THE LIST or FUNCTION MOHS ANO £OHH«NTS WHICH rOLLONg. 

(A) DENOTES A NUMBER' A VARIABLE' OR AN ARITHMETIC EXPREB8X0J, 
E.8., FABB(BC), FSQTC7), FITRC8R*4a 3/(L*8 # 1))» FABB(PC08Ct*BF)) 


PERMANENT FUNCTIONS 
SQUARE ROOT 

absolute VALUE JABSJA) 
SIGN OF THE NUMBER P80N(A) 
INTBGIR FART FITR(A) 


RANOOM NUMBER FRAN(A) 


AIP0JOTHERNX8E, ERROR 

ABSOLUTE VALUE OF A 

YIELDS Pi IF CA)**BI»i IF CA)*S 

YIELDS INTEGER PORTION OF NUMBER' NOT 

GREATEST INTEGER <*CA). 

gS'Sl&V'cK'ott’K! tHrLUENOE 
OENESATES , 


OPTIONAL functions 
EXPONENTIAL 


NATURAL LOGARITHM 

arctangent 

COSINE 

SINE 


FEXP(A) RAISES E Cl.MSGS) TO THE CA) POWER. 

•GIS«*CA)«*B16 ANO (A) MAY BE A NON** 

FLOG(A) FLOG(S)*.10918 FL0GC2.7lGtS)*t.BB 

FCOS(A) CA) IS ANGLE IN RADIANS 
F8INCA) CA) IS ANGLE IN RADIANS 


*C* THESE FUNCTIONS ARE 8TAN0ARD IN COLPAC 


#P* retaining optional FUNCTIONG 

♦F* LEGITIMATE RESPONGES TO THE QUESTION, "FUNCTIONS**, ARBI 


•P* 

»F« 

♦F* 

*F* 

*F« 

♦F* 

*F* 

#F* 
•F* 
*F* 
• F* 
*F# 
#F* 


AL OR ALL 
N, NONE OR RETURN 


FEXP 

FLOG 

FATN 

FCOS 

F8XN 


EXP 

log 

ATN 

COB 

SIN 


OR E 
OR L 
OR A 
OR C 
OR 8 


RETAINS ALU OPTIONAL FUNCTIONS 
RETAINS NO OPTIONAL FUNCTIONS 

RETAINS EXPONENTIAL FUNCTION 

retains natural logarithm 

RETAINS ARCTANGENT 
RETAING BOTH SINE AND COSINE 
RETAINS BOTH SINE ANO COBINE 


bacharron cshxft/0) oEletes previously typed responses. 

TO RETAIN SEVERAL OF THE FUNCTIONS, SEPARATE THE NAMES WITH COMMAS. 

ALL^REGPONSES^MUGT^BE^FOLLOWED^BV^A^CARRIAGE RETURN. IF THE 
RESPONSE WAS NOT UNDERSTOOD, FOCARL WILL ASK FUNCTIONS* y 

KHEN A CORRECT RESPONSE IS GIVEN, FOCARL TYPES AN *, A BACKARRON 
(SHIFT 0) DELETES THE PREVIOUS RESPONSE. 
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APPENDIX 9 «• ASCII ANO NUMERIC CODE! 

C F0GARLM4 

0|,10 T "THIS PROORAN QENERATEO A TABLE OF THE NUMERIC CODES OF"#l 
01.80 T "ALPHABETIC CHARACTERS UNDER THE POSSIBLE FORMATS",! 


ASCII CODE 
(OCTAL) 


01.90 T "CHARACTER 
01.40 T " (DECIMAL) 

01.00 F 178)0 8)0 3,08)T 1 

01,08 F X«l76,106)8 C0*»170)D 8)0 3,06)0 3.06 
01.04 F XMS0,198)0 8)0 3.0B)T » , -iiR , __ 

01,06 F Xtioslaio^s C0««198)D 8)0 8,0010 3.06 
01.00 F 1*819,883)0 8)0 3.08fT 1 
01.00 0 8,80 


NUHERXC ",1 
(OECXMAL)"»l 


08.10 

08.11 

08,19 

08.16 

0B.1F 

08.10 

08.81 

08.86 

08.87 

08.80 

08,31 

08.33 

08.96 

08.00 


C THIS DECODES OECXHAL TO OCTAL «6ASE 10 TO 0ASE 0* 

• coliUric’THiS'Mtf'lVui or * ro* t uhom numeric 
HD«FXTR((X»CHX*04))/0))® M*M0*176 


s 

9 - *w —' - 

0 L0»X«CHX*0A*H0*0))0 L*LO*170 
RETURN 

T "SPACE " )S 

"LINE FEEOHfS 
••RETURN ")S 
"BELL N )S 

NRU60UT ")0 


T 
T 
T 
T 
T 

QUIT 


X«16B)D 

X*190)D 

1*141)0 

1*138)0 

1*896)0 


"LEADER"*1,"TRAILER 


8)D 

8)0 

8)0 

8)0 

8)0 

")0 


3,00 

3,00 

3,00 

3.00 

3,00 

1*180)0 


8)0 3.09 


* 

II 


"iXA,X,* 


»,X3,X," 


",X8,X+G0,1 


",X3,X," 


",XA,H,M,L,l 


09,06 T 
09,00 T 
03.00 T 

THIS froorah oeneratss a TABLE °f the nuhbrxcco°*s of 
alfhabetxc CHARACTERS UNDER THE forhato 


",XA,H,M,L 


character 


1 

N 

• 

0 

X 

I 

I 

( 

) 

* 

♦ 


, 

/ 


XA 

(DECIMAL) 

161 

168 

163 

164 
166 
160 
167 
160 
160 

170 

171 
178 

173 

174 
176 


ASCII CODE 
(OCTAL) 

041 
848 
048 
044 
046 
840 
847 
800 
061 
888 
869 
804 
888 
886 
807 


NUMERIC 

(DECIMAL) 
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0 

170 

800 

1 

177 

801 

a 

17© 

808 

s 

179 

80S 

4 

100 

804 

0 

101 

809 

0 

108 

800 

7 

10S 

807 

0 

184 

870 

9 

108 

871 

1 

100 

878 

1 

107 

978 

4 

100 

874 

■ 

169 

879 

» 

190 

870 

t 

191 

877 

9 

198 

900 

4 

193 

901 

0 

194 

308 

e 

199 

903 

0 

190 

904 

E 

197 

909 

f 

190 

900 

0 

199 

907 

H 

800 

910 

X 

801 

911 

J 

808 

918 

K 

80S 

919 

L 

804 

914 

H 

809 

910 

N 

800 

910 

0 

807 

317 

P 

800 

980 

Q 

ao© 

381 

R 

810 

988 

0 

an 

389 

T 

818 

984 

U 

819 

389 

V 

814 

980 

M 

810 

387 

X 

810 

330 

y 

817 

991 

z 

810 

398 

t 

819 

993 

9 

880 

994 

j 

881 

999 

A 

888 

390 

t 

889 

997 

SPACE 

100 

840 

line FEED 

130 

818 

RETURN 

141 

818 

SELL 

1S9 

807 

RU0OUT 

899 

377 

LEADER 

TRAILER 

180 

800 


1 

a 

3 

4 
0 
0 
7 
0 
9 

10 

11 

ia 

is 

14 

19 

16 

17 

10 

19 

ao 

81 

aa 

as 

84 

as 

80 
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APPENDIX C — EXAMPLE OP A PROGRAM TRACE 
C POCARL-14 


• 1.18 
81 .IB 
81.18 
81.17 
81.88 
81.83 


C 

T 

T 

T 

A 

8 


THIS PROGRAM MILL PINO THE ROOTS OP A QUADRATIC EQUATION 
"TYPE IN THE VALUES OP A,0#AND C, WHERE A IS THEM 

-. _ TMg C Q|ppj C || N T OP X. ANO CM 


"COEPPICXENT OP Xa8, 8 
"IS A CONSTANT.Mil 

»a s c M»i 
RD«Ba2»4*A«C 
81.88 IF (RO) 3.08#1.3.2.86 

81.38 T "EQUATION HAS ONLY ONE ROOTI ",%6,04,«(B/2).1.1 
81.38 6 4,1 


88.88 T "EQUATION HAS TWO REAL ROOTSI " 

88.18 8 SR«P8QTCRD) 

88.88 T -CB-SRl/a," ",.(B*0R>/8,li» 

88.38 0 4.1 

83.88 T "EQUATION HAS TWO XMAOXNARY ROOTSI",l 
03.87 8 RA# PSQT(-RO) 

03,18 T •8/8," ♦ »,RA," * I » 

03.80 8 RA»°RA| T " MID 3.1IT 1,1 
03,30 0 4,1 

84.18 A "AGAIN «V OR N» "LililfXP CL-8N) 1.8,4,8,1.8 
04,80 QUIT 

• 

•60 

TYPE IN THE VALUES OP A,8|AN0 C, WHERE A IS THE 
COEPPICXENT OP XA8, 8 THE COEPPXCIENT OP X, ANO C 
IS A CONSTANT. 

A II 8 18 C 13 

EQUATION HAG TWO IMAGINARY ROOTSI 
•1,88800 t 8,88843 • I 
•1.88080 • •8.88843 • I 


again <y or N» IV 


A II 0 18 C 11 

EQUATION hag ONLY ONE ROOTI • 1.8800 
AGAIN 4Y OR N» IV 
A 137 8 178,9 C 1-830 

EQUATION HAS TWO REAL ROOTSI 68,9873 •138.887 


AGAIN «Y OR N» IN 
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•00 f 

C C T "TYFE XN THE VALUES OF A#B#ANO 0* WHEFE A XS THEl 
T "COEFFICIENT OF X*Si S THE COEFFICIENT OF X# AND Cl 

T "IS A CONSTANTS 
'1 

ah ia it #1 
#l 


"EQUATION HAS ONLY ONE NOOTI •(»/*) ,• 

.1 

0 4,1 

A "AOAXN <y OR N> ,lt I 
fIF (L«0N) t.2,4.8,1.8 

a it ia is a 

ii 


l/cSoj 1 **!*#?! "EQUATION MAE TMO XMAQINAQY EOOTEH 
• RAa FSQT(.RD) . iM4g 4 t « 

t •»/a#« t.iooo" ♦ fa# 

|0 5 „tIT -B/a,- t .0000 w + FA,- 8.0804 * X T l 

#1 


0 4.1 

A "AGAIN «Y OR N* #IN 1 
fXF (L-ON) l.8#4.8,8UXT 


t.O0O01 


45 




APPENDIX D •• PROGRAM ILLUSTRATING THI BRIAN COMMAND 
COLPAC, IBPf 

it.IB C TMI8 IB A PROGRAM TO ILLUSTRATE THI BRIAN COMMAND IN 

WWIMIf IMf.tTIDO !.• 

«!:«( J lJSfT Ml* .. 

81,90 p jtifBrs N«a 

08(10 T 18,"PXRBT LOOP A • "»A,I 

08,80 POR 090,11,8>00 3 

00(00 XP (0*A#G*18)fBRIANIGOTO 8(1 

si:ss *°?nn« 

00(90 RETURN 

08d0 TYPE 88*••••••BRIAN PROM XNNIR L00PI*****"»1 


* 

♦ 

•GO 

PXRBT LOOP At 8 
SECOND LOOP B» B 

BECOND LOOP ® ■ P 

SECOND LOOP B • ® 

SECOND LOOP B • U 

XNN|R LOOP COMPLETED 

PXRBT LOOP At 0 

BECONO LOOP B t 6 

SECOND LOOP B t 7 

BECOND LOOP B ■ B 

•••••BREAK PROM XNNIR LOOPlt**** 

PXRBT LOOP At 4 

BECONO LOOP B t 8 

BECONO LOOP B * P 

•••••BRIAN PROM INNER LOOPl***** 


PXRBT LOOP At B 
BECONO LOOP B t B 
•••••BRIAN PROM INNER LOOP!***** 


THAT'S ALL POLKB 






% 


* 


k 



coos 


?0@oS0 

101.40 

101.03 

101.73 

108.42 
108.90 

103.10 

103.43 
90S.<7 
106,03 

900.80 
106.08 

907.10 
907.88 

107.80 
907,99 
907.16 

900.60 

910.10 
110.33 

911.10 

111.44 
912.09 
916.96 

180.48 

981.48 

988.70 

188.10 
983.37 
924.04 
984.07 
924.10 
924,30 

984.49 
124,07 

984.18 

184.13 

984.70 
184.47 

980.14 
980.78 
920.93 
120.17 
120.44 


i»00 M 


ERROR DIAGNOSTICS FOR FOCARL-VERSXON 14 
MEANING 

CONTROL/C RECOVERY 
XLLSGAL LINE NUMBER U8E0 
NONEXISTENT GROUP REFERENCED BY "DO" 

NONEXISTENT LINE NUMBER REFERENCED BY 
BAD LINE NUMBER 
0TORA6E HAS FILLED BY FUBH-OOHN LIST 
NONEXISTENT LINS U0EO AFTER "GOTO* OR "IF" 

ILLEGAL COMMAND USED 

ILLEGAL USE OF FUNCTION OR NUMBER 

@A0 ARGUMENT IN "FOR", "BET", OR "ASK" 

BAD SUBSCRIPT 

STORAGE 18 FILLED BY VARIABLES 
MISSING OPERATOR IN EXPRESSION 
EMPTY PARENTHESES . . 

NO OPERATOR IS USED before PARENTHESIS 

NO AR0UMENT given after FUNCTION call 

ILLEGAL FUNCTION NAME, DOUBLE OPERATORS, EXCESS 

PARENTHESES, OR EMPTY PARENTHESES 

PARENTHESES 00 NOT MATCH 

INVALID CHARACTER TYPED 

STORAGE FILLED BY TEXT 

LlNfPRlNTER OR PUNCH IS HUNG OR DEVICE NOT 
AVAILABLE, CI.K.i CAN»T ASSIGN DEVICE) 

END OP TAPE ON H.S, READER 
IMAGINARY SQUARE ROOT REQUESTED 
INITIAL DIALOGUE ERROR 
NEGATIVE OR EERO ARGUMENT FOR LOG 
NEGATIVE OR ZERO ARGUMENT FOR LOG 
TOO MANY "BREAKS" 

TOO MANY NEBTEO "FOR" LOOPS 

LITERAL NUMBER IS TOO LARGE , i(M41 

LIBRARY PROGRAM IS TOO LARGE OR ILLEGAL OPTION 

BAD argument IN "IF" 

BAD ARGUMENT IN "ERASE" 

LIBRARY EXTEND ERROR! TOO MANY VARIABLES 
LINE NOT FOUND IN "MODIFY" 

ILLEGAL USE OF "MODIFY" OR "ERASE" -MUST BE A DIRECT 

SRRQR^LEFT OF "*« OR MISSING IN "FOR" OR "SET" 
CANNOT SAVE PROGRAM! DISK FULL! 

EXCESS RIGHT TERMINATOR IN "FOR" OR "SET" 

ILLEGAL TERMINATOR IN "FOR" 

ILLEGAL FILE NAME OR TOO MANY CHARACTERS 
BAD ACCOUNT NUMBER FOR FILE 

***0« ON SAVE OR DATA OUTW 
FILE NOT FOUND FOR CALL, DELETE, OR DATA INPUT 
OR PROTECTION VIOLATION 
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TS6 

03 

TSS 

10 

720 

20 

TEA 

07 

TED 

72 

726 

80 

720 

40 

720 

10 

730 

B1 

731 

10 

731 
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NOT FOCARL FILE (.ML) ON DATA FILE (.DAT) 

Fill ALREADY IN EXISTENCE FOR FR08RAH DAVE OR DATA OUTPUT 
BAD DZBK FILE ACCESS NUMBER* XT RUST BE NON*NE0ATXVE 
AND REASONABLY SMALL* 

CANNOT OELETE OXSK FILES PROTECTED 

CANNOT EXTEND OUTPUT PZLEt PROTECTED OR DISK FULL 

INPUT OR OUTPUT DATA FILE NOT INITIALIZED (OPENED) 

UNRECOVERABLE OXSK ERRORl 

EXPONENT TOO LAROE 

DIVISION BY ZERO REQUESTED 

numeric overflow or underflow 

UNAVAILABLE FUNCTION USED 
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